A063433 'Reverse and Add!' trajectory of 10577.

10577, 88078, 175166, 836737, 1574375, 7309126, 13528163, 49710694, 99312488, 187733887, 976071668, 1842242347, 9274664828, 17559329557, 93151725128, 175304440267, 937348843838, 1775697687577, 9533565653348, 17967131306707

Offset

0,1

Links

Harry J. Smith, Table of n, a(n) for n=0,...,200

Index entries for sequences related to Reverse and Add!

Example

a(1) = 10577 + 77501 = 88078.

Mathematica

NestList[#+FromDigits[Reverse[IntegerDigits[#]]]&, 10577, 20]  (* Harvey P. Dale, Apr 03 2011 *)

Prog

(ARIBAS): m := 10577; stop := 20; 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;
(PARI) Rev(x)= { local(d, r); r=0; while (x>0, d=x-10*(x\10); x\=10; r=r*10 + d); return(r) } { for (n=0, 200, if (n, a+=Rev(a), a=10577); write("b063433.txt", n, " ", a) ) } \\ Harry J. Smith, Aug 21 2009
(Haskell)
a063433 n = a063433_list !! n
a063433_list = iterate a056964 10577 -- Reinhard Zumkeller, Sep 22 2011

Crossrefs

A033865, A023108, A006960, A063434.

Cf. A056964, A004086.

Sequence in context: A063063 A183600 A302772 * A089494 A066054 A224425

Adjacent sequences: A063430 A063431 A063432 * A063434 A063435 A063436

Keyword

base,nonn

Author

Klaus Brockhaus, Jul 20 2001

Status

approved