|
|
A063060
|
|
'Reverse and Add!' trajectory of 10553.
|
|
3
|
|
|
10553, 46054, 91118, 172237, 904508, 1709917, 8908988, 17807086, 85877957, 161855815, 680413976, 1359728062, 3968007593, 7925016286, 14751121583, 53263237324, 95636473559, 191173937218, 1003913308409, 10051946501410
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,1
|
|
LINKS
|
|
|
EXAMPLE
|
a(1) = 10553 + 35501 = 46054.
|
|
MATHEMATICA
|
NestList[# + FromDigits[Reverse[IntegerDigits[#]]]&, 10553, 40] (* Vincenzo Librandi, May 03 2014 *)
|
|
PROG
|
(ARIBAS): m := 10553; stop := 25; c := 0; rev := int_reverse(m); while m <> rev and c < stop do inc(c); write(m, " "); m := m + rev; rev := int_reverse(m); end;
(Haskell)
a063060 n = a063060_list !! n
|
|
CROSSREFS
|
|
|
KEYWORD
|
base,nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|