OFFSET
1,1
LINKS
MATHEMATICA
Select[FromDigits/@Table[PadRight[{2}, n, 7], {n, 200}], PrimeQ] (* Harvey P. Dale, May 14 2011 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Rick L. Shepherd, Apr 17 2004
STATUS
approved