[go: up one dir, main page]

login
A158997
Palindromes of the form m*reversal(m)+1 where m >= reversal(m), sorted on m.
2
2, 5, 11, 404, 737, 161, 575, 101, 1001, 10001, 1008001, 1008001, 100001, 227218812722, 1000001, 10000001, 3536651551566353, 100000001, 1000000001, 26993605822850639962, 10000000001, 100000000001, 140452633741147336254041, 1000000000001
OFFSET
1,1
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
Sequence in context: A064772 A107989 A069504 * A101828 A071293 A234572
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