OFFSET
1,2
COMMENTS
This is the index corresponding to, or responsible for, A260593.
MATHEMATICA
msa[n_] := If[ OddQ@ n, (3n + 1)/2, n/2]; f[n_] := Block[{k = 2n + 1}, Length@ NestWhileList[ msa@# &, k, # >= k &] - 1]; k = 1; lst = lsu = {}; While[k < 10000001, a = f@ k; If[ !MemberQ[lst, a], AppendTo[lst, a]; AppendTo[lsu, k]]; k++]; lsu
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Joseph K. Horn and Robert G. Wilson v, Aug 30 2015
STATUS
approved