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

3, 46, 23, 346, 173, 2596, 1298, 649, 9736, 4868, 2434, 1217, 18256, 9128, 4564, 2282, 1141, 17116, 8558, 4279, 64186, 32093, 481396, 240698, 120349, 1805236, 902618, 451309, 6769636, 3384818, 1692409

Offset

0,1

Links

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

Mathematica

NestList[If[OddQ[#], 15#+1, #/2]&, 3, 40] (* Harvey P. Dale, Aug 03 2016 *)

Crossrefs

Sequence in context: A155203 A183131 A370458 * A196137 A261837 A352756

Adjacent sequences: A037102 A037103 A037104 * A037106 A037107 A037108

Keyword

nonn

Author

N. J. A. Sloane.

Status

approved