A063057 'Reverse and Add!' trajectory of 7059.

7059, 16566, 83127, 155265, 717816, 1336533, 4692864, 9375828, 17661567, 94178238, 177465387, 961030158, 1812060327, 9042662508, 17095324917, 89037683988, 177976357086, 858730036857, 1617360074715, 6792060711876

Offset: 0

Author

Klaus Brockhaus, Jul 07 2001

Keywords

• base
• nonn

Examples

			a(1) = 7059 + 9507 = 16566.
		

Links

• Reinhard Zumkeller and Michael Lee, Table of n, a(n) for n = 0..2432 (terms 0 through 250 provided by Reinhard Zumkeller)
• Index entries for sequences related to Reverse and Add!

Crossrefs

Cf. A033865, A023108, A006960, A063058, A056964, A004086.

Programs

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
a063057_list = iterate a056964 7059 -- Reinhard Zumkeller, Sep 22 2011

Mathematica

NestList[# + FromDigits[Reverse[IntegerDigits[#]]]&, 7059, 40] (* Vincenzo Librandi, May 03 2014 *)