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