This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A063054 #27 Jul 15 2025 16:10:43 %S A063054 1997,9988,18887,97768,184547,930028,1750067,9350638,17711177, %T A063054 94822948,179745797,977293768,1844686547,9301551028,17503102067, %U A063054 93523232638,177146465177,948711106948,1798312224797,9772534363768,18446168716547 %N A063054 'Reverse and Add!' trajectory of 1997. %H A063054 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 A063054 <a href="/index/Res#RAA">Index entries for sequences related to Reverse and Add!</a> %e A063054 a(1) = 1997 + 7991 = 9988. %t A063054 NestList[ #+FromDigits[ Reverse[ IntegerDigits[ # ] ] ]&, 1997, 25 ] %t A063054 NestList[#+IntegerReverse[#]&,1997,25] (* _Harvey P. Dale_, Jul 15 2025 *) %o A063054 (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 A063054 (Haskell) %o A063054 a063054 n = a063054_list !! n %o A063054 a063054_list = iterate a056964 1997 -- _Reinhard Zumkeller_, Sep 22 2011 %Y A063054 A033865, A023108, A006960, A063055, A056964, A004086. %K A063054 base,nonn %O A063054 0,1 %A A063054 _Klaus Brockhaus_, Jul 07 2001