OFFSET
1,2
COMMENTS
Indices of records in A359411.
a(2)-a(7) are the first 6 terms of A115964.
The first 15 terms are cubes. Are there noncubes in this sequence?
The corresponding record values are 1, 2, 4, 8, 16, 32, 64, 128, 256, 512, 1024, 2048, 4096, 8192, ... . Apparently, this sequence of records is the powers of 2 (A000079).
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..15
MATHEMATICA
s[n_] := DivisorSum[n, 1 &, BitAnd[n, #] == # &]; f[p_, e_] := s[e]; 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, Dec 30 2022
STATUS
approved