A033967 Trajectory of 1 under map n->21n+1 if n odd, n->n/2 if n even

1, 22, 11, 232, 116, 58, 29, 610, 305, 6406, 3203, 67264, 33632, 16816, 8408, 4204, 2102, 1051, 22072, 11036, 5518, 2759, 57940, 28970, 14485, 304186, 152093, 3193954, 1596977, 33536518, 16768259

Offset

0,2

Links

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

Mathematica

NestList[If[OddQ[#], 21#+1, #/2]&, 1, 30] (* Harvey P. Dale, Aug 24 2012 *)

Crossrefs

Sequence in context: A102612 A040465 A108732 * A262244 A140872 A133724

Adjacent sequences: A033964 A033965 A033966 * A033968 A033969 A033970

Keyword

nonn

Author

N. J. A. Sloane.

Status

approved