OFFSET
1,1
COMMENTS
LINKS
Ray Chandler, Table of n, a(n) for n = 1..24
I. O. Angell and H. J. Godwin, On Truncatable Primes, Math. Comput. 31, 265-267, 1977.
MATHEMATICA
grow[p_, digits_] := Select[ Table[ FromDigits[Join[{k}, IntegerDigits[p]]], {k, 1, 9}], PrimeQ[#] && Length[ IntegerDigits[#]] == digits&]; g[1] = {3, 7}; g[n_] := g[n] = grow[#, n]& /@ g[n-1] // Flatten; a[1] = 2; a[n_] := Min[g[n]]; Table[a[n], {n, 1, 24}] (* Jean-François Alcover, Aug 05 2013 *)
CROSSREFS
KEYWORD
base,nonn,fini,full
AUTHOR
Ray Chandler, Feb 04 2007
STATUS
approved