A198593 Odd numbers producing 10 odd numbers in the Collatz iteration.

43, 87, 89, 173, 177, 179, 349, 355, 357, 385, 423, 693, 705, 709, 717, 729, 761, 769, 771, 777, 847, 1393, 1397, 1411, 1415, 1421, 1429, 1457, 1459, 1465, 1481, 1523, 1539, 1541, 1547, 1555, 1569, 1689, 1693, 1697, 2773, 2787, 2801, 2821, 2831, 2837, 2869

Offset

1,1

Links

T. D. Noe, Table of n, a(n) for n = 1..1000

Mathematica

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

Crossrefs

Cf. A198584.

Sequence in context: A062060 A037986 A350141 * A039526 A108394 A288641

Adjacent sequences: A198590 A198591 A198592 * A198594 A198595 A198596

Keyword

nonn

Author

T. D. Noe, Oct 31 2011

Status

approved