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).
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
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
KEYWORD
nonn
AUTHOR
Amiram Eldar, Oct 17 2024
STATUS
approved