cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

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

This page as a plain text file.
%I A354723 #6 Jun 04 2022 13:23:23
%S A354723 25,39,575,2875,93025,243125,568135,52810719,3752907575,15623751875
%N A354723 Terms of A354722 whose number of divisors sets a new record.
%C A354723 The corresponding numbers of divisors are 3, 4, 6, 8, 9, 10, 12, 16, 18, 20, ...
%C A354723 a(11) > 4*10^10, if it exists.
%t A354723 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
%Y A354723 Cf. A000005, A000120, A354722.
%K A354723 nonn,base,more
%O A354723 1,1
%A A354723 _Amiram Eldar_, Jun 04 2022