OFFSET
0,1
COMMENTS
At step 221 becomes periodic: 4 2 1 4 2 1 4 2 1 ... - N. J. A. Sloane, Jul 27 2019
LINKS
MATHEMATICA
NestList[If[EvenQ[#], #/2, 3#+1]&, 10087, 30] (* Harvey P. Dale, Jul 25 2023 *)
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Reinhard Zumkeller, Jun 03 2009
EXTENSIONS
Edited by N. J. A. Sloane, Jul 27 2019
STATUS
approved