A063057 - OEIS

%I #23 May 03 2014 05:23:10

%S 7059,16566,83127,155265,717816,1336533,4692864,9375828,17661567,

%T 94178238,177465387,961030158,1812060327,9042662508,17095324917,

%U 89037683988,177976357086,858730036857,1617360074715,6792060711876

%N 'Reverse and Add!' trajectory of 7059.

%H Reinhard Zumkeller and Michael Lee, <a href="/A063057/b063057.txt">Table of n, a(n) for n = 0..2432</a> (terms 0 through 250 provided by Reinhard Zumkeller)

%H <a href="/index/Res#RAA">Index entries for sequences related to Reverse and Add!</a>

%e a(1) = 7059 + 9507 = 16566.

%t NestList[# + FromDigits[Reverse[IntegerDigits[#]]]&, 7059, 40] (* _Vincenzo Librandi_, May 03 2014 *)

%o (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;

%o (Haskell)

%o a063057 n = a063057_list !! n

%o a063057_list = iterate a056964 7059 -- _Reinhard Zumkeller_, Sep 22 2011

%Y A033865, A023108, A006960, A063058, A056964, A004086.

%K base,nonn

%O 0,1

%A _Klaus Brockhaus_, Jul 07 2001