fork(1) download
  1. a=->n,d=45{d<5?0:a[n,d-=2]-d*4[2**d%d]*(a[n/=d,d]+n*~n/2)}
  2. p a[10**5],a[10**9]
Success #stdin #stdout 4.73s 7408KB
stdin
Standard input is empty
stdout
3581315490
358280603722753474