A063054 'Reverse and Add!' trajectory of 1997.

1997, 9988, 18887, 97768, 184547, 930028, 1750067, 9350638, 17711177, 94822948, 179745797, 977293768, 1844686547, 9301551028, 17503102067, 93523232638, 177146465177, 948711106948, 1798312224797, 9772534363768, 18446168716547

Offset: 0

Author

Klaus Brockhaus, Jul 07 2001

Keywords

• base
• nonn

Examples

			a(1) = 1997 + 7991 = 9988.
		

Links

• Reinhard Zumkeller and Michael Lee, Table of n, a(n) for n = 0..2318 (terms 0 through 250 provided by Reinhard Zumkeller)
• Index entries for sequences related to Reverse and Add!

Crossrefs

A033865, A023108, A006960, A063055, A056964, A004086.

Programs

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;

Haskell

a063054 n = a063054_list !! n
a063054_list = iterate a056964 1997 -- Reinhard Zumkeller, Sep 22 2011

Mathematica

NestList[ #+FromDigits[ Reverse[ IntegerDigits[ # ] ] ]&, 1997, 25 ]
NestList[#+IntegerReverse[#]&,1997,25] (* Harvey P. Dale, Jul 15 2025 *)