A228872 - OEIS

%I #5 Sep 23 2019 16:16:21

%S 13,53,113,213,453,853,909,1813,3413,3637,7253,7281,13653,14549,29013,

%T 29125,54613,58197,58253,116053,116501,218453,232789,233013,464213,

%U 466005,466033,873813,931157,932053,1856853,1864021,1864133,3495253,3724629,3728213

%N Odd numbers producing 3 decreasing odd numbers in the Collatz (3x+1) iteration.

%C Sequence A198584 gives the first term of the Collatz sequence having exactly 3 odd numbers. This sequence is the subset of A198584 for which the second odd number is smaller than the first.

%e The number 13 has the Collatz iteration {13, 40, 20, 10, 5, 16, 8, 4, 2, 1}, which has three odd numbers in decreasing order {13, 5, 1}.

%t donQ[n_]:=Module[{od=Differences[Select[NestWhileList[If[EvenQ[#],#/2,3#+1]&,n,#>1&], OddQ]]}, Length[ od] ==2&&Max[od]<0]; Select[Range[1,373*10^4,2],donQ] (* _Harvey P. Dale_, Sep 23 2019 *)

%Y Cf. A198584 (Collatz iterations having 3 odd numbers).

%Y Cf. A228871 (Collatz iterations producing 3 out-of-order odd numbers).

%K nonn

%O 1,1

%A _T. D. Noe_, Sep 12 2013