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

11, 35, 113, 341

Offset

1,1

Links

Table of n, a(n) for n=1..4.

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

Crossrefs

Cf. A131450.

Cf. A199636 (row 10).

Sequence in context: A297539 A323691 A368743 * A216034 A224790 A098116

Adjacent sequences: A199814 A199815 A199816 * A199818 A199819 A199820

Keyword

nonn

Author

Vincenzo Librandi, Nov 12 2011

Status

approved