login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A096962 a(n) = Sum_{0<d|n, n/d odd} d^9. 7
1, 512, 19684, 262144, 1953126, 10078208, 40353608, 134217728, 387440173, 1000000512, 2357947692, 5160042496, 10604499374, 20661047296, 38445332184, 68719476736, 118587876498, 198369368576, 322687697780, 512000262144 (list; graph; refs; listen; history; text; internal format)
OFFSET
1,2
LINKS
H. H. Chan and C. Krattenthaler, Recent progress in the study of representations of integers as sums of squares, arXiv:math/0407061 [math.NT], 2004.
FORMULA
G.f.: Sum_{k>0} k^9 * x^k / (1 - x^(2*k)).
From Amiram Eldar, Nov 02 2022: (Start)
Multiplicative with a(2^e) = 2^(9*e) and a(p^e) = (p^(9*e+9)-1)/(p^9-1) for p > 2.
Sum_{k=1..n} a(k) ~ c * n^10, where c = 1023*zeta(10)/10240 = 31*Pi^10/29030400 = 0.100001704136... . (End)
Dirichlet g.f.: zeta(s)*zeta(s-9)*(1-1/2^s). - Amiram Eldar, Jan 09 2023
EXAMPLE
G.f. = q + 512*q^2 + 19684*q^3 + 262144*q^4 + 1953126*q^5 + 10078208*q^6 + ...
MATHEMATICA
a[ n_] := If[ n < 1, 0, Sum[ d^9 Boole[ OddQ[ n/d]], {d, Divisors[ n]}]]; (* Michael Somos, Jun 04 2013 *)
a[ n_] := SeriesCoefficient[ With[{u1 = QPochhammer[ q]^8, u2 = QPochhammer[ q^2]^4, u4 = QPochhammer[ q^4]^8}, q u2 (u1 + 32 q u4) (u1^2 + 496 q u4 u1 + 7936 q^2 u4^2 ) / u1], {q, 0, n}]; (* Michael Somos, Jun 04 2013 *)
PROG
(PARI) {a(n) = if( n<1, 0, sumdiv( n, d, (n/d%2) * d^9))}; /* Michael Somos, Jun 04 2013 */
(PARI) {a(n) = local(A, A1, A2, A4); if( n<1, 0, n--; A = x * O(x^n); A1 = eta(x + A)^8; A2 = eta(x^2 + A)^4; A4 = eta(x^4 + A)^8; polcoeff( A2 * (A1 + 32*x * A4) * (A1^2 + 496*x * A1*A4 + 7936*x^2 * A4^2) / A1, n))}; /* Michael Somos, Jun 04 2013 */
(Sage) ModularForms( Gamma0(2), 10, prec=33).2; # Michael Somos, Jun 04 2013
(Magma) A := Basis( ModularForms( Gamma0(2), 10), 21); A[2] + 512*A[3]; /* Michael Somos, Aug 25 2014 */
CROSSREFS
Sequence in context: A050756 A179665 A056586 * A231308 A254735 A254914
KEYWORD
nonn,mult
AUTHOR
Ralf Stephan, Jul 18 2004
STATUS
approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified March 19 06:05 EDT 2024. Contains 370952 sequences. (Running on oeis4.)