|
%I #5 Aug 07 2017 04:19:55
%S 1,3,5,7,9,15,21,27,33,35,39,45,63,75,99,105,135,165,189,195,225,315,
%T 495,525,585,675,693,735,765,819,825,855,945,1155,1365,1485,1575,2205,
%U 2475,2835,3465,4095,4725,5355,5775,5985,6435,6615,6825,7245,7425,7875,8085,8415,8505,8775,8925,9009,9135,9405
%N Numbers n such that product of odd divisors of n > product of odd divisors of m for all m < n.
%C Numbers n such that A136655(n) > A136655(m) for all m < n.
%t mx = 0; t = {}; Do[u = Product[d, {d, Select[Divisors[n], OddQ[#] &]}]; If[u > mx, mx = u; AppendTo[t, n]], {n, 9500}]; t
%Y Cf. A034287, A034288, A136655, A174572, A182469.
%K nonn
%O 1,2
%A _Ilya Gutkovskiy_, Aug 04 2017
|
