%I A028389
%S A028389 7,36,18,9,46,23,116,58,29,146,73,366,183,916,458,229,1146,
%T A028389 573,2866,1433,7166,3583,17916,8958,4479,22396,11198,5599,
%U A028389 27996,13998,6999,34996,17498,8749,43746,21873,109366,54683
%N A028389 n->5n+1 if n odd, n/2 if n even.
%p A028389 f := proc(n) option remember; if n = 0 then 7 elif f(n-1) mod 2 = 0 then 
               f(n-1)/2 else 5*f(n-1)+1; fi; end;
%Y A028389 Sequence in context: A165639 A073109 A078235 this_sequence A041603 A018199 
               A063168
%Y A028389 Adjacent sequences: A028386 A028387 A028388 this_sequence A028390 A028391 
               A028392
%K A028389 nonn
%O A028389 0,1
%A A028389 N. J. A. Sloane (njas(AT)research.att.com), Dean Hickerson (dean.hickerson(AT)yahoo.com)