|
| |
|
|
A063433
|
|
'Reverse and Add!' trajectory of 10577.
|
|
5
|
|
|
|
10577, 88078, 175166, 836737, 1574375, 7309126, 13528163, 49710694, 99312488, 187733887, 976071668, 1842242347, 9274664828, 17559329557, 93151725128, 175304440267, 937348843838, 1775697687577, 9533565653348, 17967131306707
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
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] (* From 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) ) } [From 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: A025028 A063063 A183600 * A089494 A066054 A224425
Adjacent sequences: A063430 A063431 A063432 * A063434 A063435 A063436
|
|
|
KEYWORD
|
base,nonn
|
|
|
AUTHOR
|
Klaus Brockhaus, Jul 20 2001
|
|
|
STATUS
|
approved
|
| |
|
|
