# This b-file was computed by Antti Karttunen, 2023-07-17 # 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 }; # A054429(n) = ((3<<#binary(n\2))-n-1); \\ From A054429 # A163511(n) = if(!n,1,A005940(1+A054429(n))) # A364255(n) = gcd(n, A163511(n)); # memoA364257 = Map(); # A364257(n) = if(1==n,1,my(v); if(mapisdefined(memoA364257,n,&v), v, v = -sumdiv(n,d,if(d