OFFSET
1,1
MATHEMATICA
Select[Range[1200], Count[IntegerDigits[#], _?PrimeQ]== IntegerLength[#]/2&] (* Harvey P. Dale, Jun 02 2011 *)
CROSSREFS
KEYWORD
base,easy,nonn
AUTHOR
Jason Earls, Jul 04 2003
STATUS
approved