A033972 Trajectory of 1 under map n->33n+1 if n odd, n->n/2 if n even.

1, 34, 17, 562, 281, 9274, 4637, 153022, 76511, 2524864, 1262432, 631216, 315608, 157804, 78902, 39451, 1301884, 650942, 325471, 10740544, 5370272, 2685136, 1342568, 671284, 335642, 167821

Offset

0,2

Links

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

Mathematica

NestList[If[OddQ[#], 33#+1, #/2]&, 1, 30] (* Harvey P. Dale, Dec 07 2025 *)

Crossrefs

Sequence in context: A118497 A301826 A033354 * A298086 A114031 A133733

Adjacent sequences: A033969 A033970 A033971 * A033973 A033974 A033975

Keyword

nonn

Author

N. J. A. Sloane

Status

approved