OFFSET
1,1
LINKS
Carlos Rivera,P*R(P)+1 = Palprime
MATHEMATICA
r[n_]:=FromDigits[Reverse[IntegerDigits[n]]]; Do[If[m>=r[m]&& r[m r[m]+1]==m r[m]+1, Print[m r[m]+1]], {m, 1000000000}]
CROSSREFS
KEYWORD
nonn,base,more
AUTHOR
Farideh Firoozbakht, Jul 09 2009
EXTENSIONS
a(20)-a(22) from Sean A. Irvine, Dec 13 2009
Cross-reference fixed by Franklin T. Adams-Watters, May 14 2010
a(23)-a(24) from Giovanni Resta, Aug 30 2018
STATUS
approved