# This b-file was computed by Antti Karttunen, 2022-04-05 # 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: # # A002110(n) = prod(i=1,n,prime(i)); # A108951(n) = { my(f=factor(n)); prod(i=1, #f~, A002110(primepi(f[i, 1]))^f[i, 2]) }; \\ From A108951 # A061395(n) = if(n>1, primepi(vecmax(factor(n)[, 1])), 0); # A351956(n) = if(1==n,1,my(gpfi=A061395(n), pg=A002110(gpfi), prifl=A108951(n)); (0==(prifl%pg) && (prifl/pg)