A377710 Numbers that have a record number of infinitary divisors that are exponentially odd numbers (A268335).

1, 2, 6, 24, 30, 120, 210, 840, 2310, 7560, 9240, 30030, 83160, 120120, 510510, 1081080, 1921920, 2042040, 9699690, 18378360, 32672640, 38798760, 223092870, 349188840, 620780160, 892371480, 5587021440, 6469693230, 8031343320, 14277943680, 25878772920, 128501493120

Offset: 1

Author

Amiram Eldar, Nov 04 2024

Keywords

• nonn

Comments

First differs from A322484 at n = 15.

Indices of records in A363825.

The corresponding record values are 1, 2, 4, 6, 8, 12, 16, 24, 32, 36, 48, 64, 72, 96, ... (see the link for more values).

Links

• Amiram Eldar, Table of n, a(n) for n = 1..139
• Amiram Eldar, Table of n, a(n), A363825(a(n)) for n = 1..139

Crossrefs

Cf. A268335, A363825, A322484.

Subsequence of A025487.

Programs

Mathematica

f[p_, e_] := 1 + If[OddQ[e], 2^DigitCount[e-1, 2, 1], 0]; 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