login
A377141
Numbers whose cubes have more square divisors than the cube of any smaller number.
1
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,2
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).
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]
CROSSREFS
Subsequence of A025487.
Cf. A092520.
Sequence in context: A089821 A343419 A353796 * A294067 A279312 A326076
KEYWORD
nonn
AUTHOR
Amiram Eldar, Oct 17 2024
STATUS
approved