OFFSET
0,1
MATHEMATICA
NestList[If[EvenQ[#], #/2, 47#+1]&, 3, 30] (* Harvey P. Dale, May 05 2014 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
STATUS
approved