|
Search: id:A035316
|
|
|
| A035316 |
|
Sum of square divisors of n. |
|
+0
12
|
|
| 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, 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, 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
(list; graph; listen)
|
|
|
OFFSET
|
1,4
|
|
|
LINKS
|
Nick Hobson, Table of n, a(n) for n = 1..1000
Y. Puri and T. Ward, Arithmetic and growth of periodic orbits, J. Integer Seqs., Vol. 4 (2001), #01.2.1.
|
|
FORMULA
|
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
G.f.: Sum_{k>0} k^2*x^(k^2)/(1-x^(k^2)). - Vladeta Jovovic (vladeta(AT)eunet.rs), Dec 13 2002
|
|
MATHEMATICA
|
Table[ Plus @@ Select[ Divisors[ n ], IntegerQ[ Sqrt[ # ] ] and ], {n, 1, 100} ]
|
|
PROGRAM
|
(PARI) vector(93, n, sumdiv(n, d, issquare(d)*d))
|
|
CROSSREFS
|
Cf. A046951.
Adjacent sequences: A035313 A035314 A035315 this_sequence A035317 A035318 A035319
Sequence in context: A089608 A100615 A102280 this_sequence A068316 A028235 A028236
|
|
KEYWORD
|
nonn,mult
|
|
AUTHOR
|
N. J. A. Sloane (njas(AT)research.att.com).
|
|
|
Search completed in 0.002 seconds
|
