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,2

Comments

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

Links

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

Mathematica

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

Crossrefs

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

Sequence in context: A211122 A211119 A211123 * A289873 A018736 A211134

Adjacent sequences: A290511 A290512 A290513 * A290515 A290516 A290517

Keyword

nonn

Author

Ilya Gutkovskiy, Aug 04 2017

Status

approved