OFFSET
1,1
MATHEMATICA
Sort[Select[Flatten[Table[FromDigits[Join[{n}, PadRight[{}, i, 2], {n-1}]], {n, 2, 8, 2}, {i, 70}]], PrimeQ]] (* Harvey P. Dale, Dec 05 2015 *)
PROG
(PARI) n10np1(n, d) = { local(x, y, k); for(x=1, n, for(k=1, 8, y=10^(x+1)*k+floor(10^x*d/9)*10+k-1; if(isprime(y), print1(y", ")) ) ) }
CROSSREFS
KEYWORD
easy,nonn,base
AUTHOR
Cino Hilliard, Jul 11 2005
EXTENSIONS
One more term (a(10)) from Harvey P. Dale, Dec 05 2015
STATUS
approved