OFFSET
1,3
COMMENTS
Even digits are 2, 4, 6 or 8. Prime digits are 2, 3, 5 or 7.
EXAMPLE
0(number=0), 1(number=0), 9(number=0), 10(number=0), 12(number=1), 20(number=1), 21(number=1), 22(number=2), 34(number=1), etc.
MATHEMATICA
okQ[n_]:=Module[{idn=IntegerDigits[n]}, !PrimeQ[n] && Count[idn, _?PrimeQ] == Count[idn, _?EvenQ]-Count[idn, 0]]; Select[Range[0, 250], okQ] (* Harvey P. Dale, Jan 12 2012 *)
CROSSREFS
KEYWORD
nonn,base,less
AUTHOR
Juri-Stepan Gerasimov, Feb 08 2009
EXTENSIONS
Removed 69, inserted 99 and 209 . R. J. Mathar, Feb 13 2009
STATUS
approved