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.
%I A337739 #18 Jun 15 2021 10:37:06
%S A337739 6,12,56,176,550,2752,3230,8925,351351
%N A337739 Terms of A083209 with a record number of divisors.
%C A337739 Zumkeller numbers (A083207) which can be partitioned into two disjoint sets with an equal sum in a single way, and having a record number of divisors.
%C A337739 The corresponding numbers of divisors are 4, 6, 8, 10, 12, 14, 16, 24, 48, ...
%C A337739 a(10) > 1.8*10^6.
%C A337739 Per a comment by _T. D. Noe_ in A083209 we have a(10) <= 2^24 * 11184829 = 187650292056064 and this sequence is infinite. - _David A. Corneth_, May 19 2021
%e A337739 The first 5 terms of A083209 are 6, 12, 20, 28, 56. Their numbers of divisors are 4, 6, 6, 6, 8. The record values, 4, 6 and 8 occur at 6, 12 and 56.
%t A337739 zumsingleQ[n_] := Module[{d = Divisors[n], sum, x}, sum = Plus @@ d; sum >= 2*n && EvenQ[sum] && CoefficientList[Product[1 + x^i, {i, d}], x][[1 + sum/2]] == 2]; dm = 0; s = {}; Do[d = DivisorSigma[0, n]; If[d > dm, q = zumsingleQ[n]; If[q && d > dm, dm = d; AppendTo[s, n]]], {n, 1, 10^4}]; s
%Y A337739 Cf. A000005, A000203, A023196, A083207, A083209, A335008, A337738.
%K A337739 nonn,more
%O A337739 1,1
%A A337739 _Amiram Eldar_, Sep 17 2020