|
%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
|
