|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
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
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|