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

3, 100, 50, 25, 826, 413, 13630, 6815, 224896, 112448, 56224, 28112, 14056, 7028, 3514, 1757, 57982, 28991, 956704, 478352, 239176, 119588, 59794, 29897, 986602, 493301, 16278934, 8139467, 268602412

Offset

0,1

Links

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

Mathematica

NestList[If[OddQ[#], 33#+1, #/2]&, 3, 30] (* Harvey P. Dale, May 09 2013 *)

Crossrefs

Sequence in context: A293952 A303826 A128296 * A336437 A069457 A142416

Adjacent sequences: A037111 A037112 A037113 * A037115 A037116 A037117

Keyword

nonn

Author

N. J. A. Sloane.

Status

approved