OFFSET
1,1
COMMENTS
All terms must start with 2, 4, or 8 so that each term ends with 1, 3, or 7. - Harvey P. Dale, Sep 06 2023
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..19 (* All terms with less than 1000 digits. *)
MATHEMATICA
Select[Sort[Flatten[Table[FromDigits[Join[{n}, PadRight[{}, k, 5], {n-1}]], {n, {2, 4, 8}}, {k, 60}]]], PrimeQ] (* Harvey P. Dale, Sep 06 2023 *)
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
STATUS
approved