|
|
A177856
|
|
Numbers m such that m*reversal(m)+1 is a palindrome.
|
|
2
|
|
|
1, 2, 10, 13, 14, 23, 31, 32, 40, 41, 100, 1000, 10000, 24000, 42000, 100000, 318317, 713813, 1000000, 10000000, 43029128, 82192034, 100000000, 1000000000, 3632590347, 7430952363, 10000000000, 100000000000, 259218138145, 541831812952, 1000000000000, 10000000000000
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
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
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|