OFFSET
1,1
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..252 (* All terms with less than 500 digits. *)
MATHEMATICA
Join[Prime[Range[25]], Select[Flatten[Table[FromDigits[Join[{d1}, PadRight[{}, n, 9], {d2}]], {n, 150}, {d1, 9}, {d2, {1, 3, 7, 9}}]], PrimeQ]] (* Harvey P. Dale, Nov 10 2024 *)
CROSSREFS
KEYWORD
nonn,base,changed
AUTHOR
Amarnath Murthy, Apr 06 2002
EXTENSIONS
Corrected by Ray Chandler, Nov 24 2003
Offset corrected and name changed by Arkadiusz Wesolowski, Sep 07 2011
STATUS
approved