OFFSET
1,1
MATHEMATICA
Select[Table[FromDigits[Join[PadRight[{4}, n, 6], {1}]], {n, 80}], PrimeQ] (* Harvey P. Dale, Nov 21 2014 *)
PROG
(Magma) [a: n in [0..250]|IsPrime(a) where a is (14*10^n-17)div(3)]
CROSSREFS
KEYWORD
nonn
AUTHOR
Vincenzo Librandi, Dec 11 2010
STATUS
approved