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

Author

N. J. A. Sloane

Keywords

• nonn

References

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

Links

• 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).

Programs

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 *)

Formula

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