# Terms 1 - 65537 in https://oeis.org/A354825/a354825.txt # This b-file was computed by Antti Karttunen, 2022-06-09 # 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: # # A019565(n) = { my(m=1, p=1); while(n>0, p = nextprime(1+p); if(n%2, m *= p); n >>= 1); (m); }; # A293442(n) = factorback(apply(e -> A019565(e),factor(n)[,2])); # memoA354825 = Map(); # A354825(n) = if(1==n,1,my(v); if(mapisdefined(memoA354825,n,&v), v, v = -sumdiv(n,d,if(d