# This b-file was computed by Antti Karttunen, 2024-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: # # default(parisizemax,2^29); # up_to = 2^18; # A003415(n) = if(n<=1, 0, my(f=factor(n)); n*sum(i=1, #f~, f[i, 2]/f[i, 1])); # v003415 = vector(up_to,n,A003415(n)); # isA218011(n) = { my(z=v003415[n]); for(x=2,ceil(n/2),if(!(z%v003415[x]), if(z==v003415[x]*v003415[n-x], return(1)))); (0); }; \\ ~~~~ # k=0; n=0; while(n