A003079 One of the basic cycles in the x->3x-1 (x odd) or x/2 (x even) problem.

5, 14, 7, 20, 10, 5, 14, 7, 20, 10, 5, 14, 7, 20, 10, 5, 14, 7, 20, 10, 5, 14, 7, 20, 10, 5, 14, 7, 20, 10, 5, 14, 7, 20, 10, 5, 14, 7, 20, 10, 5, 14, 7, 20, 10, 5, 14, 7, 20, 10, 5, 14, 7, 20, 10, 5, 14, 7, 20, 10, 5, 14, 7, 20, 10, 5, 14, 7, 20, 10, 5, 14, 7, 20, 10

Offset: 0

Author

N. J. A. Sloane

Keywords

• nonn
• easy

References

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

Programs

Mathematica

NestList[If[OddQ[#],3#-1,#/2]&,5,80] (* Harvey P. Dale, Feb 27 2023 *)