OFFSET
1,2
LINKS
Carlos Rivera,P*R(P)+1 = Palprime
MATHEMATICA
rev[n_] := FromDigits[Reverse[IntegerDigits[n]]]; isPal[n_] := n == rev[n]; t = {}; Do[If[isPal[n*rev[n] + 1], AppendTo[t, n]], {n, 10^6}]; t (* T. D. Noe, Mar 15 2012 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Franklin T. Adams-Watters, May 14 2010
EXTENSIONS
Two missing terms added by Lars Blomberg, Mar 15 2012
a(29)-a(32) from Giovanni Resta, Sep 01 2018
STATUS
approved