# This b-file was computed by Antti Karttunen, 2023-10-08 # 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: # # A030101(n) = if(n<1,0,subst(Polrev(binary(n)),x,2)); # A057889(n) = if(!n,n,A030101(n/(2^valuation(n,2))) * (2^valuation(n, 2))); # A163511(n) = if(!n, 1, my(p=2, t=1); while(n>1, if(!(n%2), (t*=p), p=nextprime(1+p)); n >>= 1); (t*p)); # A366275(n) = A163511(A057889(n)); # A366283(n) = gcd(n,A366275(n)); # memoA366258 = Map(); # A366258(n) = if(1==n,1,my(v); if(mapisdefined(memoA366258,n,&v), v, v = -sumdiv(n,d,if(d