A033977 Trajectory of 1 under map n->43n+1 if n odd, n->n/2 if n even

1, 44, 22, 11, 474, 237, 10192, 5096, 2548, 1274, 637, 27392, 13696, 6848, 3424, 1712, 856, 428, 214, 107, 4602, 2301, 98944, 49472, 24736, 12368, 6184, 3092, 1546, 773, 33240, 16620, 8310, 4155, 178666

Offset

0,2

Links

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

Mathematica

NestList[If[OddQ[#], 43#+1, #/2]&, 1, 40] (* Harvey P. Dale, Jan 28 2021 *)

Crossrefs

Sequence in context: A160330 A074175 A074174 * A033364 A108213 A158376

Adjacent sequences: A033974 A033975 A033976 * A033978 A033979 A033980

Keyword

nonn

Author

N. J. A. Sloane.

Status

approved