|
%I #17 Feb 22 2013 21:37:24
%S 1997,9988,18887,97768,184547,930028,1750067,9350638,17711177,
%T 94822948,179745797,977293768,1844686547,9301551028,17503102067,
%U 93523232638,177146465177,948711106948,1798312224797,9772534363768,18446168716547
%N 'Reverse and Add!' trajectory of 1997.
%H Reinhard Zumkeller and Michael Lee, <a href="/A063054/b063054.txt">Table of n, a(n) for n = 0..2318</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) = 1997 + 7991 = 9988.
%t NestList[ #+FromDigits[ Reverse[ IntegerDigits[ # ] ] ]&, 1997, 25 ]
%o (ARIBAS): m := 1997; 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 a063054 n = a063054_list !! n
%o a063054_list = iterate a056964 1997 -- _Reinhard Zumkeller_, Sep 22 2011
%Y A033865, A023108, A006960, A063055, A056964, A004086.
%K base,nonn
%O 0,1
%A _Klaus Brockhaus_, Jul 07 2001
|
