A052023 Every suffix of palindromic prime a(n), containing no '0' digit, is prime (left-truncatable palindromic primes).

2, 3, 5, 7, 313, 353, 373, 383, 797, 76367, 79397, 7693967, 799636997

Offset: 1

Author

G. L. Honaker, Jr. and Patrick De Geest, Nov 15 1999

Keywords

• nonn
• base
• fini
• full

Links

• I. O. Angell and H. J. Godwin, On Truncatable Primes, Math. Comput. 31, 265-267, 1977.
• C. K. Caldwell, Left and Right truncatable primes.
• P. De Geest, The list of 4260 left-truncatable primes
• Eric Weisstein's World of Mathematics, Prime strings
• Index entries for sequences related to truncatable primes

Crossrefs

Cf. A033664, A024785, A032437, A020994, A024770, A052024, A052025, A050986, A050987.

Programs

Mathematica

d[n_]:=IntegerDigits[n]; ltrQ[n_]:=And@@PrimeQ[NestList[FromDigits[Drop[d[#],1]]&,n,Length[d[n]]-1]]; palQ[n_]:=Reverse[x=d[n]]==x; Select[Prime[Range[540000]],palQ[#]&<rQ[#]&] (* Jayanta Basu, Jun 02 2013 *)