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,1

Links

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

Example

666 = prime(103)+103.

Mathematica

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

Prog

(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

Crossrefs

Cf. A014688, A115884.

Subsequence of A002113.

Sequence in context: A220483 A136684 A215751 * A143814 A088971 A153400

Adjacent sequences: A115885 A115886 A115887 * A115889 A115890 A115891

Keyword

nonn,base

Author

Giovanni Resta, Feb 06 2006

Status

approved