|
%I #9 Sep 25 2023 12:39:52
%S 9,19,37,77,81,149,163,309,321,325,331,597,625,643,653,663,713,715,
%T 1237,1251,1285,1301,1313,1325,1339,1425,1427,1431,1433,2389,2501,
%U 2573,2577,2613,2625,2627,2653,2679,2695,2851,2853,2861,2865,2867,4949,5005,5141
%N Odd numbers producing 7 odd numbers in the Collatz iteration.
%H Vincenzo Librandi, <a href="/A198590/b198590.txt">Table of n, a(n) for n = 1..1046</a>
%t Collatz[n_] := NestWhileList[If[EvenQ[#], #/2, 3 # + 1] &, n, # > 1 &]; t = {}; Do[If[Length[Select[Collatz[n], OddQ]] == 7, AppendTo[t, n]], {n, 1, 10000, 2}]; t
%t col7Q[n_]:=Length[Select[NestWhileList[If[EvenQ[#],#/2,3#+1]&,n,#>1&],OddQ]]==7; Select[ Range[1,5201,2],col7Q] (* _Harvey P. Dale_, Sep 25 2023 *)
%Y Cf. A198584.
%K nonn
%O 1,1
%A _T. D. Noe_, Oct 31 2011
|
