OFFSET
1,2
COMMENTS
Indices of records of A365680.
The corresponding record values are 1, 2, 3, 4, 6, 8, 9, 12, 16, 18, 24, 32, 36, 48, 54, 64, 72, 96, ... (see the link for more values).
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..255
Amiram Eldar, Table of n, a(n), A365680(a(n)) for n = 1..255
MATHEMATICA
f[p_, e_] := Count[Range[e], _?SquareFreeQ] + 1; d[1] = 1; d[n_] := Times @@ f @@@ FactorInteger[n]; 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, Sep 15 2023
STATUS
approved