a=->n,d=45{d<5?0:a[n,d-=2]-d*4[2**d%d]*(a[n/=d,d]+n*~n/2)}p a[10**5],a[10**9]
Standard input is empty
3581315490 358280603722753474
The brand new service which powers Ideone!
Widget for compiling and running the source code in a web browser!