OFFSET
1,2
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
Giovanni Resta, Feb 06 2006
STATUS
approved