OFFSET
1,2
COMMENTS
Indices of records in A362852.
The first 80 terms are cubes. Are there noncubes in this sequence?
The corresponding record values are 1, 2, 3, 4, 6, 8, 9, 10, 12, 15, 18, 20, 24, 30, 36, 40, 45, 48, 60, 72, ... (see the link for more values).
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..80
Amiram Eldar, Table of n, a(n), A362852(a(n)) for n = 1..80
MATHEMATICA
f[p_, e_] := DivisorSigma[0, e] - If[OddQ[e], 0, 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, May 05 2023
STATUS
approved