A377141 Numbers whose cubes have more square divisors than the cube of any smaller number.

1, 2, 4, 8, 12, 24, 36, 72, 144, 180, 360, 720, 900, 1800, 3600, 6300, 10800, 12600, 25200, 44100, 75600, 88200, 176400, 352800, 529200, 705600, 1411200, 1587600, 1940400, 3880800, 5821200, 7761600, 15523200, 17463600, 21344400, 42688800, 64033200, 85377600, 170755200

Offset: 1

Author

Amiram Eldar, Oct 17 2024

Keywords

• nonn

Comments

Indices of records in A092520.

The corresponding record values are 1, 2, 4, 5, 8, 10, 16, 20, 28, 32, 40, 56, 64, 80, 112, 128, ... (see the link for more values).

Links

• Amiram Eldar, Table of n, a(n) for n = 1..355
• Amiram Eldar, Table of n, a(n), A363825(a(n)) for n = 1..355

Crossrefs

Subsequence of A025487.

Cf. A092520.

Programs

Mathematica

f[p_, e_] := Floor[(3*e+2)/2]; d[1] = 1; d[n_] := Times @@ f @@@ FactorInteger[n]; With[{v = Cases[Import["https://oeis.org/A025487/b025487.txt", "Table"], {, }][[;; , 2]]}, seq = {}; dm = 0; Do[If[(dk = d[v[[k]]]) > dm, dm = dk; AppendTo[seq, v[[k]]]], {k, 1, Length[v]}]; seq]