|
|
A066054
|
|
'Reverse and Add!' trajectory of 10583.
|
|
3
|
|
|
10583, 49084, 97178, 184357, 937838, 1776577, 9533348, 17966707, 88733678, 176367466, 841131137, 1572262285, 7394885036, 13700769973, 51697470704, 92404950319, 183710890748, 1030808908129, 10248906988430, 13737867972631
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,1
|
|
LINKS
|
|
|
EXAMPLE
|
a(1) = 10583 + 38501 = 49084.
|
|
MATHEMATICA
|
NestList[# + FromDigits[Reverse[IntegerDigits[#]]]&, 10583, 40] (* Vincenzo Librandi, May 03 2014 *)
|
|
PROG
|
(ARIBAS): m := 10583; 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=0); while (x>0, d=x%10; x\=10; r=r*10 + d); return(r) } { a=10583; for (n = 0, 150, if (n, a+=Rev(a)); write("b066054.txt", n, " ", a) ) } \\ Harry J. Smith, Nov 08 2009
(Haskell)
a066054 n = a066054_list !! n
|
|
CROSSREFS
|
|
|
KEYWORD
|
base,nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|