A354723 Terms of A354722 whose number of divisors sets a new record.

25, 39, 575, 2875, 93025, 243125, 568135, 52810719, 3752907575, 15623751875

Offset

1,1

Comments

The corresponding numbers of divisors are 3, 4, 6, 8, 9, 10, 12, 16, 18, 20, ...

a(11) > 4*10^10, if it exists.

Links

Table of n, a(n) for n=1..10.

Mathematica

bw[n_] := DigitCount[n, 2, 1]; seq = {}; dm = 0; Do[If[CompositeQ[n] && (d = DivisorSigma[0, n]) > dm && UnsameQ @@ (bw /@ Divisors[n]), dm = d; AppendTo[seq, n]], {n, 1, 10^5, 2}]; seq

Crossrefs

Cf. A000005, A000120, A354722.

Sequence in context: A070758 A104667 A354722 * A066844 A255608 A309623

Adjacent sequences: A354720 A354721 A354722 * A354724 A354725 A354726

Keyword

nonn,base,more

Author

Amiram Eldar, Jun 04 2022

Status

approved