A115888 Palindromes equal to the sum of a prime number with its index.

3, 5, 8, 11, 101, 242, 383, 424, 454, 545, 585, 606, 666, 676, 757, 949, 2552, 3443, 3663, 4664, 5445, 6006, 6886, 9339, 10001, 10601, 11411, 12321, 15551, 15651, 17871, 17971, 18281, 21412, 22622, 22922, 24642, 24942, 25752, 26762, 28582

Offset: 1

Author

Giovanni Resta, Feb 06 2006

Keywords

• nonn
• base

Examples

			666 = prime(103)+103.
		

Links

• Harvey P. Dale, Table of n, a(n) for n = 1..1000

Crossrefs

Cf. A014688, A115884.

Subsequence of A002113.

Programs

Mathematica

Select[Total/@Table[{n,Prime[n]},{n,3200}],PalindromeQ] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Jun 03 2017 *)

PARI

ispal(n) = my(e=digits(n));e == Vecrev(e) \\ A002113
for(k=1,10^6, b=k+prime(k);if(ispal(b),print1(b,", "))) \\ Alexandru Petrescu, Jun 15 2022