%I A063054
%S A063054 1997,9988,18887,97768,184547,930028,1750067,9350638,17711177,94822948,
%T A063054 179745797,977293768,1844686547,9301551028,17503102067,93523232638,
%U A063054 177146465177,948711106948,1798312224797,9772534363768,18446168716547
%N A063054 'Reverse and Add!' trajectory of 1997.
%H A063054 <a href="Sindx_Res.html#RAA">Index entries for sequences related to Reverse
and Add!</a>
%e A063054 a(1) = 1997 + 7991 = 9988.
%t A063054 NestList[ #+FromDigits[ Reverse[ IntegerDigits[ # ] ] ]&, 1997, 25 ]
%o A063054 (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;
%Y A063054 A033865, A023108, A006960, A063055.
%Y A063054 Sequence in context: A034588 A079012 A063472 this_sequence A031808 A167292
A037029
%Y A063054 Adjacent sequences: A063051 A063052 A063053 this_sequence A063055 A063056
A063057
%K A063054 base,nonn
%O A063054 0,1
%A A063054 Klaus Brockhaus (klaus-brockhaus(AT)t-online.de), Jul 07 2001
|