# This b-file was computed by Antti Karttunen, 2024-01-11 # 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: # # A003415(n) = if(n<=1, 0, my(f=factor(n)); n*sum(i=1, #f~, f[i, 2]/f[i, 1])); # A003557(n) = (n/factorback(factorint(n)[, 1])); # A005940(n) = { my(p=2, t=1); n--; until(!n\=2, if((n%2), (t*=p), p=nextprime(p+1))); (t); }; # A342001(n) = (A003415(n) / A003557(n)); # A366801(n) = A342001(A005940(1+n)); # A359550(n) = { my(f = factor(n)); prod(k=1, #f~, (f[k, 2]