OFFSET
1,3
LINKS
Giovanni Resta, Table of n, a(n) for n = 1..800
MATHEMATICA
a[1] = 1; a[n_] := a[n] = Block[{k = a[n - 1], c = IntegerDigits @ Table[ a[i], {i, n - 1}]}, While[ !PrimeQ[ FromDigits @ Flatten @ Append[c, IntegerDigits[k]]], k += 2]; k]; Table[ a[n], {n, 48}] (* Robert G. Wilson v *)
nxt[{c_, a_}]:=Module[{x=a}, While[!PrimeQ[FromDigits[Join[c, IntegerDigits[ x]]]], x+=2]; {Join[c, IntegerDigits[x]], x}]; NestList[nxt, {{1}, 1}, 50][[All, 2]] (* Harvey P. Dale, Sep 14 2018 *)
CROSSREFS
KEYWORD
nonn,nice
AUTHOR
EXTENSIONS
More terms from Patrick De Geest, May 15 1998
More terms from Robert G. Wilson v, Aug 05 2005
STATUS
approved