OFFSET
1,1
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
MATHEMATICA
edpQ[n_]:=Module[{idn=IntegerDigits[n]}, Count[idn, _?EvenQ]== Count[ idn, _?PrimeQ]]; Select[Prime[Range[200]], edpQ] (* Harvey P. Dale, Mar 29 2013 *)
CROSSREFS
KEYWORD
nonn,base,less
AUTHOR
Juri-Stepan Gerasimov, Jan 15 2009
EXTENSIONS
19 added, 101 removed, 103 and 107 added, 109 removed, 509 added etc. by R. J. Mathar, Oct 22 2009
STATUS
approved