OFFSET
1
COMMENTS
See A365495 for more information and links.
LINKS
MATHEMATICA
Table[Mod[Nest[If[OddQ[#], (3*#+1)/2, #/2] &, n, n-1], 2], {n, 100}]
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Paolo Xausa, Apr 04 2024
STATUS
approved