%I A035316
%S A035316 1,1,1,5,1,1,1,5,10,1,1,5,1,1,1,21,1,10,1,5,1,1,1,5,26,1,10,5,1,1,1,
%T A035316 21,1,1,1,50,1,1,1,5,1,1,1,5,10,1,1,21,50,26,1,5,1,10,1,5,1,1,1,5,1,1,
%U A035316 10,85,1,1,1,5,1,1,1,50,1,1,26,5,1,1,1,21,91,1,1,5,1,1,1,5,1,10,1,5,1
%N A035316 Sum of square divisors of n.
%H A035316 Nick Hobson, <a href="b035316.txt">Table of n, a(n) for n = 1..1000</
               a>
%H A035316 Y. Puri and T. Ward, <a href="http://www.cs.uwaterloo.ca/journals/JIS/
               index.html">Arithmetic and growth of periodic orbits</a>, J. Integer 
               Seqs., Vol. 4 (2001), #01.2.1.
%F A035316 Multiplicative with a(p^e)=(p^(e+2)-1)/(p^2-1) for even e and a(p^e)=(p^(e+1)-1)/
               (p^2-1) for odd e. - Vladeta Jovovic (vladeta(AT)eunet.rs), Dec 05 
               2001
%F A035316 G.f.: Sum_{k>0} k^2*x^(k^2)/(1-x^(k^2)). - Vladeta Jovovic (vladeta(AT)eunet.rs), 
               Dec 13 2002
%t A035316 Table[ Plus @@ Select[ Divisors[ n ], IntegerQ[ Sqrt[ # ] ] and ], {n, 
               1, 100} ]
%o A035316 (PARI) vector(93, n, sumdiv(n, d, issquare(d)*d))
%Y A035316 Cf. A046951.
%Y A035316 Sequence in context: A089608 A100615 A102280 this_sequence A068316 A028235 
               A028236
%Y A035316 Adjacent sequences: A035313 A035314 A035315 this_sequence A035317 A035318 
               A035319
%K A035316 nonn,mult
%O A035316 1,4
%A A035316 N. J. A. Sloane (njas(AT)research.att.com).