[go: up one dir, main page]

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