OFFSET
1,1
COMMENTS
Prime digits are 2, 3, 5, 7.
LINKS
John Cerkan, Table of n, a(n) for n = 1..10000
PROG
(PARI) dp(n)=d=digits(n); c=0; for(i=1, #d, if(isprime(d[i]), c+=1)); c
forprime(p=1, 500, if(dp(p)<dp(prime(p)), print1(p, ", "))) \\ Derek Orr, Feb 28 2017
CROSSREFS
KEYWORD
nonn,base,less
AUTHOR
Juri-Stepan Gerasimov, Jan 24 2009
EXTENSIONS
Corrected (87 removed) by R. J. Mathar, May 15 2010
STATUS
approved