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 A115888 #20 Jun 17 2022 03:25:25 %S A115888 3,5,8,11,101,242,383,424,454,545,585,606,666,676,757,949,2552,3443, %T A115888 3663,4664,5445,6006,6886,9339,10001,10601,11411,12321,15551,15651, %U A115888 17871,17971,18281,21412,22622,22922,24642,24942,25752,26762,28582 %N A115888 Palindromes equal to the sum of a prime number with its index. %H A115888 Harvey P. Dale, <a href="/A115888/b115888.txt">Table of n, a(n) for n = 1..1000</a> %e A115888 666 = prime(103)+103. %t A115888 Select[Total/@Table[{n,Prime[n]},{n,3200}],PalindromeQ] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Jun 03 2017 *) %o A115888 (PARI) ispal(n) = my(e=digits(n));e == Vecrev(e) \\ A002113 %o A115888 for(k=1,10^6, b=k+prime(k);if(ispal(b),print1(b,", "))) \\ _Alexandru Petrescu_, Jun 15 2022 %Y A115888 Cf. A014688, A115884. %Y A115888 Subsequence of A002113. %K A115888 nonn,base %O A115888 1,1 %A A115888 _Giovanni Resta_, Feb 06 2006