OFFSET
1,1
MATHEMATICA
Flatten[ Table[ Select[ Table[ FromDigits[ Flatten[ IntegerDigits /@ {2, 3, 5, 7, PadLeft[ IntegerDigits[i], n]}]], {i, 10^n}], PrimeQ[ # ] &], {n, 3}]] (* Robert G. Wilson v, Jan 10 2004 *)
CROSSREFS
KEYWORD
nonn,base,easy
AUTHOR
Parthasarathy Nambi, Jan 04 2005
EXTENSIONS
Edited, corrected and extended by Robert G. Wilson v, Jan 10 2005
STATUS
approved