%I A095118
%S A095118 1,1,1,5,1,5,1,5,10,5,1,14,1,5,10,21,1,14,1,21,10,5,1,30,26,5,10,21,1,
%T A095118 39,1,21,10,5,26,66,1,5,10,46,1,50,1,21,35,5,1,66,50,30,10,21,1,50,26,
%U A095118 70,10,5,1,91,1,5,59,85,26,50,1,21,10,79,1,130,1,5,35,21,50,50,1,110,91
%N A095118 a(n) is the sum of the squares of the divisors of n which are <= sqrt(n).
%H A095118 Leroy Quet, <a href="http://www.prism-of-spirals.net/">Home Page</a> 
               (listed in lieu of email address)
%e A095118 The divisors of 12 which are <= sqrt(12) are 1,2,3, so a(12) = 1^2 + 
               2^2 + 3^2 = 14.
%t A095118 a[n_]:=Plus@@(Select[Divisors[n], #^2<=n&]^2)
%Y A095118 Cf. A095119.
%Y A095118 Sequence in context: A050349 A083528 A056957 this_sequence A100947 A096940 
               A141345
%Y A095118 Adjacent sequences: A095115 A095116 A095117 this_sequence A095119 A095120 
               A095121
%K A095118 nonn
%O A095118 1,4
%A A095118 Dean Hickerson (dean.hickerson(AT)yahoo.com), following a suggestion 
               of Leroy Quet May 28 2004