A290514 Numbers n such that product of odd divisors of n > product of odd divisors of m for all m < n.

1, 3, 5, 7, 9, 15, 21, 27, 33, 35, 39, 45, 63, 75, 99, 105, 135, 165, 189, 195, 225, 315, 495, 525, 585, 675, 693, 735, 765, 819, 825, 855, 945, 1155, 1365, 1485, 1575, 2205, 2475, 2835, 3465, 4095, 4725, 5355, 5775, 5985, 6435, 6615, 6825, 7245, 7425, 7875, 8085, 8415, 8505, 8775, 8925, 9009, 9135, 9405

Offset: 1

Author

Ilya Gutkovskiy, Aug 04 2017

Keywords

• nonn

Comments

Numbers n such that A136655(n) > A136655(m) for all m < n.

Crossrefs

Cf. A034287, A034288, A136655, A174572, A182469.

Programs

Mathematica

mx = 0; t = {}; Do[u = Product[d, {d, Select[Divisors[n], OddQ[#] &]}]; If[u > mx, mx = u; AppendTo[t, n]], {n, 9500}]; t