login
A033965
Trajectory of 1 under map n->17n+1 if n odd, n->n/2 if n even
0
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
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
KEYWORD
nonn
AUTHOR
STATUS
approved