OFFSET
1,1
COMMENTS
Last digit is 2, next-to-last digit is odd, each remaining digit can be any prime digit.
MATHEMATICA
Select[4Range[2000], And@@PrimeQ[IntegerDigits[#]]&] (* Harvey P. Dale, Dec 13 2010 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Amarnath Murthy, Nov 08 2002
EXTENSIONS
Corrected and extended by Sascha Kurz, Jan 03 2003
STATUS
approved