|
|
A115889
|
|
Palindromes equal to the difference between a prime number and its index.
|
|
0
|
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
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
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|