A115889 Palindromes equal to the difference between a prime number and its index.

1, 2, 3, 6, 7, 11, 99, 202, 212, 222, 282, 373, 404, 424, 505, 525, 575, 626, 636, 848, 858, 909, 1221, 2002, 2332, 2442, 2772, 3003, 3883, 4224, 4884, 6116, 6556, 6886, 7007, 7227, 7337, 8778, 10201, 10901, 11111, 11411, 12021, 12421, 14541, 14941

Offset

1,2

Links

Table of n, a(n) for n=1..46.

Example

575=p(126)-126.

Mathematica

Select[Union[Flatten[Differences/@Table[{n, Prime[n]}, {n, 3000}]]], PalindromeQ] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Sep 13 2020 *)

Crossrefs

Cf. A115885.

Sequence in context: A032875 A032842 A023773 * A101319 A182538 A030013

Adjacent sequences: A115886 A115887 A115888 * A115890 A115891 A115892

Keyword

nonn,base

Author

Giovanni Resta, Feb 06 2006

Status

approved