cp's OEIS Frontend

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

%I A052023 #28 Feb 16 2025 08:32:41
%S A052023 2,3,5,7,313,353,373,383,797,76367,79397,7693967,799636997
%N A052023 Every suffix of palindromic prime a(n), containing no '0' digit, is prime (left-truncatable palindromic primes).
%H A052023 I. O. Angell and H. J. Godwin, <a href="http://dx.doi.org/10.1090/S0025-5718-1977-0427213-2">On Truncatable Primes</a>, Math. Comput. 31, 265-267, 1977.
%H A052023 C. K. Caldwell, <a href="https://t5k.org/glossary/page.php?sort=LeftTruncatablePrime">Left</a> and <a href="https://t5k.org/glossary/page.php?sort=RightTruncatablePrime">Right</a> truncatable primes.
%H A052023 P. De Geest, <a href="https://www.worldofnumbers.com/truncat.htm">The list of 4260 left-truncatable primes</a>
%H A052023 Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/PrimeString.html">Prime strings</a>
%H A052023 <a href="/index/Tri#tprime">Index entries for sequences related to truncatable primes</a>
%t A052023 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[#]&&ltrQ[#]&] (* _Jayanta Basu_, Jun 02 2013 *)
%Y A052023 Cf. A033664, A024785, A032437, A020994, A024770, A052024, A052025, A050986, A050987.
%K A052023 nonn,base,fini,full
%O A052023 1,1
%A A052023 _G. L. Honaker, Jr._ and _Patrick De Geest_, Nov 15 1999