OFFSET
0,1
MATHEMATICA
Select[7*Range[1100], And@@PrimeQ[IntegerDigits[#]]&] (* Harvey P. Dale, Jul 18 2011 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Amarnath Murthy, Nov 08 2002
EXTENSIONS
Corrected and extended by Sascha Kurz, Jan 03 2003
STATUS
approved