Location via proxy:   [ UP ]  
[Report a bug]   [Manage cookies]                
A127891
Smallest n-digit left-truncatable prime.
3
2, 13, 113, 1223, 12113, 121283, 1237547, 12184967, 124536947, 1219861613, 12181833347, 121339693967, 1213536676883, 12673876537547, 121848768729173, 1275463876537547, 12429121339693967, 165678739293946997, 1276812967623946997, 15396334245663786197, 315396334245663786197, 5918918997653319693967, 57686312646216567629137, 357686312646216567629137
OFFSET
1,1
COMMENTS
Ends at a(24) = 357686312646216567629137.
Agrees with A088604 for 24 terms, but this sequence ends there while A088604 continues.
LINKS
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