A037107 Trajectory of 3 under map n->19n+1 if n odd, n->n/2 if n even

3, 58, 29, 552, 276, 138, 69, 1312, 656, 328, 164, 82, 41, 780, 390, 195, 3706, 1853, 35208, 17604, 8802, 4401, 83620, 41810, 20905, 397196, 198598, 99299, 1886682, 943341, 17923480, 8961740, 4480870

Offset

0,1

Links

Table of n, a(n) for n=0..32.

Formula

a(n) = A033966(n+9). - R. J. Mathar, Nov 21 2014

Mathematica

NestList[If[EvenQ[#], #/2, 19#+1]&, 3, 40] (* Harvey P. Dale, Oct 31 2017 *)

Crossrefs

Sequence in context: A134723 A133060 A198915 * A335293 A041735 A156487

Adjacent sequences: A037104 A037105 A037106 * A037108 A037109 A037110

Keyword

nonn

Author

N. J. A. Sloane.

Status

approved