This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A032596 #19 Aug 11 2024 14:41:30 %S A032596 1879781,1880881,1969691,3590953,7820287,108494801,159191951, %T A032596 160707061,175101571,187101781,316696613,319404913,725595527, %U A032596 728898827,731909137,904090409,921202129,930505039,987202789,987494789,10456965401,10745054701 %N A032596 Second of three consecutive palindromes all of which are prime. %H A032596 Charles R Greathouse IV, <a href="/A032596/b032596.txt">Table of n, a(n) for n = 1..10000</a> %H A032596 P. De Geest, <a href="https://www.worldofnumbers.com/palpri.htm">World!Of Palindromic Primes</a> %o A032596 (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 A032596 list(lim)=my(v=List(),p=1,q=2,r=3); while(q<=lim\=1, if(isprime(r), if(isprime(q), if(isprime(p), listput(v,q)); 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 A032596 Cf. A002385, A032595, A032597. %K A032596 nonn,base %O A032596 1,1 %A A032596 _Patrick De Geest_, May 15 1998 %E A032596 New name from _Charles R Greathouse IV_, Aug 11 2021