|
| |
|
|
A065827
|
|
Sum of squares of divisors of square numbers.
|
|
1
| |
|
|
1, 21, 91, 341, 651, 1911, 2451, 5461, 7381, 13671, 14763, 31031, 28731, 51471, 59241, 87381, 83811, 155001, 130683, 221991, 223041, 310023, 280371, 496951, 406901, 603351, 597871, 835791, 708123, 1244061, 924483, 1398101, 1343433
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,2
|
|
|
LINKS
| Harry J. Smith, Table of n, a(n) for n=1,...,500
|
|
|
FORMULA
| Multiplicative with a(p^e) = (p^(4*e+2)-1)/(p^2-1).
a(n) = A001157(n^2). - R. J. Mathar, Mar 31 2011
Dirichlet g.f. zeta(s)*zeta(s-2)*zeta(s-4)/zeta(2s-4). Dirichlet convolution of A001159 by the arithmetic function with terms n^2*A008966(n). - R. J. Mathar, Mar 31 2011
|
|
|
MAPLE
| A065827 := proc(n) numtheory[sigma][2](n^2) ; end proc:
seq(A065827(n), n=1..20) ; # R. J. Mathar, Apr 01 2011
|
|
|
MATHEMATICA
| DivisorSigma[2, #]&/@(Range[40]^2) (* From Harvey P. Dale, May 18 2011 *)
|
|
|
PROG
| (Sage) [sigma(n^2, 2)for n in xrange(1, 34)] # [From Zerinvary Lajos (zerinvarylajos(AT)yahoo.com), Jun 13 2009]
(PARI) { for (n=1, 500, a=sigma(n^2, 2); write("b065827.txt", n, " ", a) ) } [From Harry J. Smith (hjsmithh(AT)sbcglobal.net), Nov 01 2009]
|
|
|
CROSSREFS
| Cf. A001157, A065764.
Sequence in context: A020248 A203173 A194532 * A143843 A119109 A144856
Adjacent sequences: A065824 A065825 A065826 * A065828 A065829 A065830
|
|
|
KEYWORD
| mult,nonn
|
|
|
AUTHOR
| Vladeta Jovovic (vladeta(AT)eunet.rs), Dec 06 2001
|
| |
|
|
