A033965 Trajectory of 1 under map n->17n+1 if n odd, n->n/2 if n even

1, 18, 9, 154, 77, 1310, 655, 11136, 5568, 2784, 1392, 696, 348, 174, 87, 1480, 740, 370, 185, 3146, 1573, 26742, 13371, 227308, 113654, 56827, 966060, 483030, 241515, 4105756, 2052878, 1026439, 17449464

Offset

0,2

Links

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

Mathematica

NestList[If[EvenQ[#], #/2, 17#+1]&, 1, 40] (* Harvey P. Dale, Jan 24 2015 *)

Crossrefs

Sequence in context: A373404 A146676 A147438 * A146415 A089517 A290345

Adjacent sequences: A033962 A033963 A033964 * A033966 A033967 A033968

Keyword

nonn

Author

N. J. A. Sloane.

Status

approved