A199817 Odd numbers producing 10 even numbers in the Collatz iteration.

11, 35, 113, 341

Offset: 1

Author

Vincenzo Librandi, Nov 12 2011

Keywords

• nonn

Crossrefs

Cf. A131450.

Cf. A199636 (row 10).

Programs

Mathematica

Collatz[n_]:=NestWhileList[If[EvenQ[#],#/2,3 #+1]&,n,#>1&];t={};Do[If[Length[Select[Collatz[n],EvenQ]] == 10,AppendTo[t,n]],{n,1,100000,2}];t