%I A117828
%S A117828 1,5,9,13,35,57,79,101,105,505,509,909,913,323,327,727,731,141,145,
%T A117828 545,549,949,953,363,367,767,771,181,185,585,589,989,993,403,308,
%U A117828 807,712,221,126,625,530,39,97,83,42,28,86,72,31,17,75,61,20,6,10,5,9,
               13,35,57,79,101,105,505,509,909,913,323,327,727,731
%N A117828 Start with 1 and repeatedly reverse the digits and add 4 to get the next 
               term.
%H A117828 N. J. A. Sloane, <a href="a117831.txt">Sequences of RADD type</a>
%F A117828 After one step enters a cycle of length 54: see A117827, A117830.
%p A117828 read transforms; t1:=[1]; for n from 1 to 80 do t1:=[op(t1),4+digrev(t1[n])]; 
               od: (N. J. A. Sloane)
%t A117828 f[n_] := 4 + FromDigits@ Reverse@ IntegerDigits@n; NestList[ f@# &, 1, 
               57] (* and *)
%t A117828 (* to view the cycle *) NestWhileList[ f@# &, 1, UnsameQ, All] (from 
               Robert G. Wilson v (rgwv(at)rgwv.com), May 09 2006)
%Y A117828 Cf. A117827, A117829, A117830.
%Y A117828 Sequence in context: A024728 A024950 A118837 this_sequence A117830 A061516 
               A146135
%Y A117828 Adjacent sequences: A117825 A117826 A117827 this_sequence A117829 A117830 
               A117831
%K A117828 nonn,base
%O A117828 1,2
%A A117828 Luc Stevens (lms022(AT)yahoo.com), Apr 06 2006