A033979 Trajectory of 1 under map n->47n+1 if n odd, n->n/2 if n even

1, 48, 24, 12, 6, 3, 142, 71, 3338, 1669, 78444, 39222, 19611, 921718, 460859, 21660374, 10830187, 509018790, 254509395, 11961941566, 5980970783, 281105626802, 140552813401, 6605982229848, 3302991114924

Offset

0,2

Links

Harvey P. Dale, Table of n, a(n) for n = 0..1000

Mathematica

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

Crossrefs

Sequence in context: A299585 A203250 A124354 * A033368 A128380 A298451

Adjacent sequences: A033976 A033977 A033978 * A033980 A033981 A033982

Keyword

nonn

Author

N. J. A. Sloane.

Status

approved