%I #8 Oct 31 2017 09:52:43
%S 3,58,29,552,276,138,69,1312,656,328,164,82,41,780,390,195,3706,1853,
%T 35208,17604,8802,4401,83620,41810,20905,397196,198598,99299,1886682,
%U 943341,17923480,8961740,4480870
%N Trajectory of 3 under map n->19n+1 if n odd, n->n/2 if n even
%F a(n) = A033966(n+9). - _R. J. Mathar_, Nov 21 2014
%t NestList[If[EvenQ[#],#/2,19#+1]&,3,40] (* _Harvey P. Dale_, Oct 31 2017 *)
%K nonn
%O 0,1
%A _N. J. A. Sloane_.
|