OFFSET
0,2
MATHEMATICA
NestList[If[EvenQ[#], #/2, 29#+1]&, 1, 30] (* Harvey P. Dale, Jun 03 2015 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
STATUS
approved