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
Examples
575=p(126)-126.
Crossrefs
Cf. A115885.
Programs
-
Mathematica
Select[Union[Flatten[Differences/@Table[{n,Prime[n]},{n,3000}]]], PalindromeQ] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Sep 13 2020 *)