OFFSET
0,2
MATHEMATICA
NestList[If[OddQ[#], 21#+1, #/2]&, 1, 30] (* Harvey P. Dale, Aug 24 2012 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
STATUS
approved