OFFSET
1,1
COMMENTS
Prime digits are 2, 3, 5 or 7, nonprime digit are 0, 1, 4, 6, 8 or 9.
PROG
(PARI) f(n) = #select(isprime, digits(prime(n))); \\ A109066
isok(p) = my(nbp=f(prime(p))); isprime(p) && (2*f(p) == #digits(prime(p))); \\ Michel Marcus, Feb 18 2021
CROSSREFS
KEYWORD
nonn,base,less
AUTHOR
Juri-Stepan Gerasimov, Jan 19 2009
EXTENSIONS
Corrected (17 and 479 inserted) by R. J. Mathar, May 05 2010
STATUS
approved