OFFSET
1,1
MATHEMATICA
Select[Table[10 FromDigits[PadRight[{3}, n, 8]]+1, {n, 50}], PrimeQ] (* Harvey P. Dale, Jul 02 2021 *)
PROG
(Magma) [a: n in [0..250]|IsPrime(a) where a is (35*10^n-71)div(9)]
CROSSREFS
KEYWORD
nonn
AUTHOR
Vincenzo Librandi, Dec 11 2010
STATUS
approved