OFFSET
0,1
MATHEMATICA
Join[{2, 3}, Table[SelectFirst[Join[10FromDigits[PadRight[{}, k, 3]]+{1, 7, 9}, Flatten[Table[100 FromDigits[PadRight[{}, k, 3]]+10n+{1, 3, 7, 9}, {n, 0, 9}]], Flatten[Table[1000 FromDigits[PadRight[{}, k, 3]]+100n+{1, 3, 7, 9}, {n, 0, 99}]]], PrimeQ], {k, 2, 20}]] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Jun 01 2019 *)
CROSSREFS
KEYWORD
base,easy,nonn
AUTHOR
Amarnath Murthy, Feb 20 2002
EXTENSIONS
More terms from Sascha Kurz, Mar 19 2002
STATUS
approved