A033965 - OEIS

%I #5 Jan 24 2015 16:27:05

%S 1,18,9,154,77,1310,655,11136,5568,2784,1392,696,348,174,87,1480,740,

%T 370,185,3146,1573,26742,13371,227308,113654,56827,966060,483030,

%U 241515,4105756,2052878,1026439,17449464

%N Trajectory of 1 under map n->17n+1 if n odd, n->n/2 if n even

%t NestList[If[EvenQ[#],#/2,17#+1]&,1,40] (* _Harvey P. Dale_, Jan 24 2015 *)

%K nonn

%O 0,2

%A _N. J. A. Sloane_.