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