OFFSET
1
LINKS
MATHEMATICA
Table[Mod[Nest[If[OddQ[#], 3*#+1, #/2] &, n, n-1], 2], {n, 100}]
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Paolo Xausa, Apr 04 2024
STATUS
approved