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

3, 112, 56, 28, 14, 7, 260, 130, 65, 2406, 1203, 44512, 22256, 11128, 5564, 2782, 1391, 51468, 25734, 12867, 476080, 238040, 119020, 59510, 29755, 1100936, 550468, 275234, 137617, 5091830, 2545915

Offset

0,1

Links

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

Mathematica

NestList[If[EvenQ[#], #/2, 37#+1]&, 3, 30] (* Harvey P. Dale, Jan 03 2014 *)

Crossrefs

Sequence in context: A114207 A128684 A292336 * A169996 A054330 A024043

Adjacent sequences: A037113 A037114 A037115 * A037117 A037118 A037119

Keyword

nonn

Author

N. J. A. Sloane.

Status

approved