OFFSET
1,1
MATHEMATICA
Select[Table[10 FromDigits[PadRight[{2}, n, 3]]+9, {n, 60}], PrimeQ] (* Harvey P. Dale, Jul 29 2018 *)
PROG
(Magma) [a: n in [0..250]|IsPrime(a) where a is (7*10^n+17)div(3)]
CROSSREFS
KEYWORD
nonn
AUTHOR
Vincenzo Librandi, Dec 11 2010
STATUS
approved