|
%I #18 Aug 11 2021 15:45:52
%S 1880881,1881881,1970791,3591953,7821287,108505801,159202951,
%T 160717061,175111571,187111781,316707613,319414913,725606527,
%U 728909827,731919137,904101409,921212129,930515039,987212789,987505789,10457075401,10745154701
%N Third of three consecutive palindromes all of which are prime.
%H Charles R Greathouse IV, <a href="/A032597/b032597.txt">Table of n, a(n) for n = 1..10000</a>
%H P. De Geest, <a href="http://www.worldofnumbers.com/palpri.htm">World!Of Palindromic Primes</a>
%o (PARI) nxt(n)=my(d=digits(n)); i=(#d+1)\2; while(i&&d[i]==9, d[i]=0; d[#d+1-i]=0; i--); if(i, d[i]++; d[#d+1-i]=d[i], d=vector(#d+1); d[1]=d[#d]=1); sum(i=1, #d, 10^(#d-i)*d[i]) \\ From _David A. Corneth_ at A002113
%o list(lim)=my(v=List(),p=1,q=2,r=3); while(r<=lim\=1, if(isprime(r), if(isprime(q), if(isprime(p), listput(v,r)); p=q; q=r; r=nxt(r), q=nxt(p=r); r=nxt(q)), q=nxt(p=nxt(r)); r=nxt(q))); Vec(v) \\ _Charles R Greathouse IV_, Aug 11 2021
%Y Cf. A002385, A032595, A032596.
%K nonn,base
%O 1,1
%A _Patrick De Geest_, May 15 1998
%E New name from _Charles R Greathouse IV_, Aug 11 2021
|
