login

Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.

A377710
Numbers that have a record number of infinitary divisors that are exponentially odd numbers (A268335)
1
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,2
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).
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
CROSSREFS
Subsequence of A025487.
Sequence in context: A190424 A377711 A322484 * A066332 A069141 A158977
KEYWORD
nonn
AUTHOR
Amiram Eldar, Nov 04 2024
STATUS
approved