OFFSET
1,1
LINKS
Daniel Starodubtsev, Table of n, a(n) for n = 1..10000
PROG
(PARI) isok(p) = isprime(p) && (#select(x->(x==4), digits(p)) == 4); \\ Michel Marcus, Mar 15 2020
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Lekraj Beedassy, May 29 2010
EXTENSIONS
Missing a(13) = 444349 inserted by Daniel Starodubtsev, Mar 15 2020
STATUS
approved