%I A140522
%S A140522 1,6,12,24,36,48,60,72,84,96,108,120,168,180,240,300,336,360,420,480,
%T A140522 540,600,660,720,840,1008,1080,1200,1260,1440,1680,2100,2160,2520,3240,
%U A140522 3360,3780,3960,4200,4620,4680,5040,6300,6720,7200,7560,8400,9240,10080
%N A140522 Numbers for which sigma(n) - 2n exceeds sigma(k) - 2k for all k < n.
%e A140522 72 qualifies because a(60) = 48 and a(72) = 51.
%t A140522 a = {1}; m = -1; For[n = 2, n < 20000, n++, If[DivisorSigma[1, n] - 2*n 
               > m, m = DivisorSigma[1, n] - 2*n; AppendTo[a, n]]]; a [From Stefan 
               Steinerberger (stefan.steinerberger(AT)gmail.com), Aug 04 2008]
%Y A140522 Cf. A002093 (d=0) and A034090 (d=1).
%Y A140522 Sequence in context: A110967 A000082 A106697 this_sequence A065218 A124509 
               A063104
%Y A140522 Adjacent sequences: A140519 A140520 A140521 this_sequence A140523 A140524 
               A140525
%K A140522 nonn
%O A140522 1,2
%A A140522 J. Lowell (jhbubby(AT)mindspring.com), Jul 02 2008
%E A140522 More terms from Stefan Steinerberger (stefan.steinerberger(AT)gmail.com), 
               Aug 04 2008