# A324335 for range 0 .. 65537 computed by Antti Karttunen, 2019-02-23 # in GP/PARI CALCULATOR Version 2.9.4 (released) amd64 running linux (x86-64/GMP-6.1.2 kernel) 64-bit version, compiled: Dec 19 2017, gcc version 7.3.0 (Ubuntu 7.3.0-1ubuntu1), threading engine: pthread # with the following program: # # A005940(n) = { my(p=2, t=1); n--; until(!n\=2, if((n%2), (t*=p), p=nextprime(p+1))); t }; \\ From A005940 # A001615(n) = (n * sumdivmult(n, d, issquarefree(d)/d)); \\ This function from A001615, by _Charles R Greathouse IV_, Sep 09 2014 # memoA323363 = Map(); # A323363(n) = if(1==n,1,my(v); if(mapisdefined(memoA323363,n,&v), v, v = -sumdiv(n,d,if(d