%I A095119
%S A095119 1,840,900,1080,1225,1260,1440,1600,1680,1800,1848,1890,1980,2016,2100,
%T A095119 2160,2340,2400,2520,2640,2700,2772,2800,2880,2970,3024,3080,3120,3136,
%U A095119 3150,3240,3276,3300,3360,3465,3528,3600,3640,3696,3780,3900,3960,3969
%N A095119 Numbers n such that s(n) >= sigma(n), where s(n) = A095118(n) is the 
               sum of the squares of the divisors of n which are <= sqrt(n) and 
               sigma(n) = A000203(n) is the sum of the divisors of n.
%H A095119 Leroy Quet, <a href="http://www.prism-of-spirals.net/">Home Page</a> 
               (listed in lieu of email address)
%e A095119 840 is in the sequence because s(840) = 3070 >= 2880 = sigma(840).
%t A095119 s[n_]:=Plus@@(Select[Divisors[n], #^2<=n&]^2); Select[Range[4000], s[ 
               # ]>=DivisorSigma[1, # ]&]
%Y A095119 Cf. A095118.
%Y A095119 Sequence in context: A158401 A156937 A135640 this_sequence A102793 A144770 
               A068546
%Y A095119 Adjacent sequences: A095116 A095117 A095118 this_sequence A095120 A095121 
               A095122
%K A095119 nonn
%O A095119 1,2
%A A095119 Dean Hickerson (dean.hickerson(AT)yahoo.com), following a suggestion 
               of Leroy Quet, May 28 2004