OFFSET
1,1
MATHEMATICA
NestList[Select[Flatten[Table[FromDigits[Join[{a}, IntegerDigits[#], {b}]], {a, 9}, {b, 1, 9, 2}]], PrimeQ][[1]]&, 3, 12] (* Harvey P. Dale, Nov 11 2022 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Amarnath Murthy, Sep 28 2002
EXTENSIONS
More terms from Sascha Kurz, Jan 20 2003
One more term from David Wasserman, Jan 20 2005
STATUS
approved