OFFSET
1,2
COMMENTS
LINKS
PROG
(PARI) isA377878(n) = { my(m=5^5, f = factor(n), pr=1, i=1, s=0); for(k=1, #f~, while(i <= primepi(f[k, 1])-1, pr *= Mod(prime(i), m); i++); s += f[k, 2]*pr); (0==lift(s)); };
CROSSREFS
KEYWORD
nonn,new
AUTHOR
Antti Karttunen, Nov 13 2024
STATUS
approved