|
%I #24 May 03 2014 07:19:41
%S 10553,46054,91118,172237,904508,1709917,8908988,17807086,85877957,
%T 161855815,680413976,1359728062,3968007593,7925016286,14751121583,
%U 53263237324,95636473559,191173937218,1003913308409,10051946501410
%N 'Reverse and Add!' trajectory of 10553.
%H Reinhard Zumkeller and Michael Lee, <a href="/A063060/b063060.txt">Table of n, a(n) for n = 0..2423</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) = 10553 + 35501 = 46054.
%t NestList[# + FromDigits[Reverse[IntegerDigits[#]]]&, 10553, 40] (* _Vincenzo Librandi_, May 03 2014 *)
%o (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;
%o (Haskell)
%o a063060 n = a063060_list !! n
%o a063060_list = iterate a056964 10553 -- _Reinhard Zumkeller_, Sep 22 2011
%Y A033865, A023108, A006960, A063061.
%Y Cf. A056964, A004086.
%K base,nonn
%O 0,1
%A _Klaus Brockhaus_, Jul 07 2001
%E Updated b-file from _Michael Lee_, Apr 01 2012
|
