# This b-file was computed by Antti Karttunen, 2019-05-10 # 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: # # A048720(b,c) = fromdigits(Vec(Pol(binary(b))*Pol(binary(c)))%2, 2); # A065621(n) = bitxor(n-1,n+n-1); # A325565(n) = sumdiv(n,d,A048720(A065621(d),n/d)==n); # A325567(n) = if(1==n,n,fordiv(n,d,if((d>1)&&A048720(A065621(n/d),d)==n,return(n/d)))); # A325568(n) = if(1==n,0,1+A325568(A325567(n))); # isA325569(n) = (A325565(n)