|
|
A063057
|
|
'Reverse and Add!' trajectory of 7059.
|
|
4
|
|
|
7059, 16566, 83127, 155265, 717816, 1336533, 4692864, 9375828, 17661567, 94178238, 177465387, 961030158, 1812060327, 9042662508, 17095324917, 89037683988, 177976357086, 858730036857, 1617360074715, 6792060711876
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,1
|
|
LINKS
|
|
|
EXAMPLE
|
a(1) = 7059 + 9507 = 16566.
|
|
MATHEMATICA
|
NestList[# + FromDigits[Reverse[IntegerDigits[#]]]&, 7059, 40] (* Vincenzo Librandi, May 03 2014 *)
|
|
PROG
|
(ARIBAS): m := 7059; 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)
a063057 n = a063057_list !! n
|
|
CROSSREFS
|
|
|
KEYWORD
|
base,nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|