0,1

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;

Sequence in context: A096686 A073109 A078235 this_sequence A041603 A018199 A063168

Adjacent sequences: A028386 A028387 A028388 this_sequence A028390 A028391 A028392

nonn

njas, Dean Hickerson (dean(AT)ucdmath.ucdavis.edu)