OFFSET
1,1
FORMULA
a(x) = 10^(x+1)*n+floor(10^x*8/9)*10+n+1. Output if a(x) is prime.
MATHEMATICA
Select[FromDigits/@Flatten[Table[Join[{n}, PadRight[{}, k, 8], {n+1}], {n, 8}, {k, 100}], 1], PrimeQ]//Sort (* Harvey P. Dale, Oct 09 2018 *)
PROG
(PARI) n10np1(n) = { local(x, y, k); for(x=1, n, for(k=1, 8, y=10^(x+1)*k+floor(10^x*8/9)*10+k+1; if(isprime(y), print1(y", ")) ) ) }
CROSSREFS
KEYWORD
easy,nonn,base
AUTHOR
Cino Hilliard, Jul 11 2005
EXTENSIONS
More terms from Harvey P. Dale, Oct 09 2018
STATUS
approved