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,1

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!

Example

a(1) = 1997 + 7991 = 9988.

Mathematica

NestList[ #+FromDigits[ Reverse[ IntegerDigits[ # ] ] ]&, 1997, 25 ]

Prog

(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

Crossrefs

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

Sequence in context: A250380 A079012 A063472 * A296826 A171467 A258106

Adjacent sequences: A063051 A063052 A063053 * A063055 A063056 A063057

Keyword

base,nonn

Author

Klaus Brockhaus, Jul 07 2001

Status

approved