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

1, 38, 19, 704, 352, 176, 88, 44, 22, 11, 408, 204, 102, 51, 1888, 944, 472, 236, 118, 59, 2184, 1092, 546, 273, 10102, 5051, 186888, 93444, 46722, 23361, 864358, 432179, 15990624, 7995312, 3997656, 1998828

Offset

0,2

Links

Harvey P. Dale, Table of n, a(n) for n = 0..1000

Mathematica

NestList[If[EvenQ[#], #/2, 37#+1]&, 1, 40] (* Harvey P. Dale, May 31 2019 *)

Crossrefs

Sequence in context: A277642 A160147 A033358 * A143721 A333850 A070725

Adjacent sequences: A033971 A033972 A033973 * A033975 A033976 A033977

Keyword

nonn

Author

N. J. A. Sloane.

Status

approved