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