OFFSET
1,2
COMMENTS
Indices of records in A061389.
The corresponding record values are 1, 2, 4, 6, 8, 10, 12, 16, 20, 24, 28, 32, 40, 48, 56, ... (see the link for more values).
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..231
Amiram Eldar, Table of n, a(n), A363825(a(n)) for n = 1..231
MATHEMATICA
f[p_, e_] := EulerPhi[e] + 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, Nov 04 2024
STATUS
approved