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