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: A165639 A073109 A078235 this_sequence A041603 A018199 A063168

Adjacent sequences: A028386 A028387 A028388 this_sequence A028390 A028391 A028392

nonn

N. J. A. Sloane (njas(AT)research.att.com), Dean Hickerson (dean.hickerson(AT)yahoo.com)