OFFSET
1,1
LINKS
Charles R Greathouse IV, C code to find initial terms
MATHEMATICA
With[{s = Table[If[AllTrue[#, EvenQ], 0, SelectFirst[Reverse@ #, OddQ]] &@ Most@ Rest@ NestWhileList[If[EvenQ@ #, #/2, (3 # + 1)/2] &, n, # > 1 &], {n, 2, 10^5}] }, 1 + Values[#][[All, 1]] &@ Rest@ KeySort@ PositionIndex@ s] (* Michael De Vlieger, Aug 14 2017 *)
PROG
(C) See Greathouse link
(PARI) A237660(n)=my(k); if(n%2, n=3*n+1); n>>=valuation(n, 2); if(n==1, return(0)); k=n; while(1, n+=(n+1)>>1; n>>=valuation(n, 2); if(n==1, return(k), k=n))
r=0; for(n=1, 1e8, t=A237660(n); if(t>r, r=t; print1(n", "))) \\ Charles R Greathouse IV, Aug 14 2017
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Kival Ngaokrajang, Feb 11 2014
EXTENSIONS
a(11)-a(15) from Charles R Greathouse IV, Aug 14 2017
STATUS
approved