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 A348630 #6 Oct 26 2021 07:46:52
%S A348630 1,24,30,96,120,480,840,3360,13440,30240,36960,120960,147840,272160,
%T A348630 332640,1330560,2993760,4324320,17297280,38918880,73513440,220540320,
%U A348630 294053760,661620960,1396755360,2646483840,5587021440,12570798240
%N A348630 Nonexponential superabundant numbers: numbers m such that nesigma(m)/m > nesigma(k)/k for all k < m, where nesigma(m) is the sum of nonexponential divisors of m (A160135).
%C A348630 The least term k with nesigma(k)/k > m for m = 2, 3, 4, ... is 480, 332640, 1396755360, ...
%t A348630 esigma[n_] := Times @@ (Sum[First[#]^d, {d, Divisors[Last[#]]}] &) /@ FactorInteger[n]; s[1] = 1 ;s[n_] := DivisorSigma[1, n] - esigma[n]; seq = {}; rm = -1; Do[r1 = s[n]/n; If[r1 > rm, rm = r1; AppendTo[seq, n]],{n, 1, 10^6}]; seq
%Y A348630 Cf. A160135, A348604.
%Y A348630 Subsequence of A348629.
%Y A348630 The nonexponential version of A004394.
%Y A348630 Similar sequences: A002110 (unitary), A037992 (infinitary), A061742, A292984, A329882, A348273.
%K A348630 nonn,more
%O A348630 1,2
%A A348630 _Amiram Eldar_, Oct 26 2021