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.

A329882 Nonunitary superabundant numbers: numbers m such that nusigma(m)/m > nusigma(k)/k for all k < m, where nusigma(m) is the sum of nonunitary divisors of m (A048146).

This page as a plain text file.
%I A329882 #7 Nov 23 2019 23:14:00
%S A329882 1,4,8,16,24,36,48,72,144,288,360,432,720,1440,1800,2160,3600,7200,
%T A329882 10800,15120,21600,25200,50400,75600,151200,302400,453600,529200,
%U A329882 831600,1058400,1663200,2116800,3175200,3326400,4989600,5821200,9979200,11642400,21621600
%N A329882 Nonunitary superabundant numbers: numbers m such that nusigma(m)/m > nusigma(k)/k for all k < m, where nusigma(m) is the sum of nonunitary divisors of m (A048146).
%t A329882 usigma[1] = 1; usigma[n_] := Times @@ (1 + Power @@@ FactorInteger[n]); nusigma[n_] := DivisorSigma[1, n] - usigma[n]; rm = -1; s = {}; Do[r = nusigma[n]/n; If[r > rm, rm = r; AppendTo[s, n]], {n, 1, 10000}]; s
%Y A329882 The nonunitary version of A004394.
%Y A329882 Cf. A034448, A048146, A064597, A309141.
%K A329882 nonn
%O A329882 1,2
%A A329882 _Amiram Eldar_, Nov 23 2019