A008903 x->x/2 if x even, x->3x-1 if x odd.

100, 50, 25, 74, 37, 110, 55, 164, 82, 41, 122, 61, 182, 91, 272, 136, 68, 34, 17, 50, 25, 74, 37, 110, 55, 164, 82, 41, 122, 61, 182, 91, 272, 136, 68, 34, 17, 50, 25, 74, 37, 110, 55, 164, 82, 41, 122, 61, 182, 91

Offset

0,1

References

R. K. Guy, Unsolved Problems in Number Theory, E16.

Links

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

Index entries for linear recurrences with constant coefficients, signature (0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1).

Formula

a(n)=A003124(n), n>0. - R. J. Mathar, May 26 2008

Mathematica

NestList[If[EvenQ[#], #/2, 3#-1]&, 100, 120] (* or *) PadRight[{100}, 120, {17, 50, 25, 74, 37, 110, 55, 164, 82, 41, 122, 61, 182, 91, 272, 136, 68, 34}] (* Harvey P. Dale, May 20 2021 *)

Crossrefs

Sequence in context: A298574 A077489 A153674 * A033420 A234322 A260707

Adjacent sequences: A008900 A008901 A008902 * A008904 A008905 A008906

Keyword

nonn

Author

N. J. A. Sloane.

Status

approved