OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
FORMULA
MATHEMATICA
Select[ IntegerExponent[ #! ] & /@ Prime@ Range@ 310, PrimeQ] (* Robert G. Wilson v, Nov 06 2010 *)
PROG
(PARI) lista(pmax) = {my(tz); forprime(p = 1, pmax, tz = (p - sumdigits(p, 5))/4; if(isprime(tz), print1(tz, ", "))); } \\ Amiram Eldar, May 03 2024
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Lekraj Beedassy, Nov 02 2010
EXTENSIONS
More terms from Robert G. Wilson v, Nov 06 2010
STATUS
approved