|
Search: id:A118208
|
|
|
| A118208 |
|
G.f.: A(x) = product_{k>=1}(1 + x^k)^(-lambda(k)) where lambda(k) is the Liouville function, A008836. |
|
+0
5
|
|
| 1, -1, 2, -1, 0, 2, -4, 5, -3, 0, 4, -6, 6, -2, -3, 8, -10, 6, 0, -6, 14, -13, 9, 0, -12, 17, -18, 11, 3, -18, 28, -22, 14, 7, -25, 30, -31, 11, 12, -23, 34, -28, 9, 12, -30, 35, -31, 10, 11, -30, 56, -35, 26, -4, -41, 51, -65, 48, -8, -28, 65, -74, 70, -9, -49, 71, -112, 69, -4, -48, 135, -129, 82, -21, -83, 155, -176, 99, 0
(list; graph; listen)
|
|
|
OFFSET
|
0,3
|
|
|
MATHEMATICA
|
nmax = 80; lambda[k_Integer?Positive] := If[ k > 1, (-1)^Total[ Part[Transpose[FactorInteger[k]], 2] ], 1 ]; CoefficientList[ Series[ Product[ (1 + x^k)^(-lambda[k]), {k, 1, nmax} ], {x, 0, nmax} ], x ]
|
|
CROSSREFS
|
Cf. A118205, A118206, A118207, A118209, A117211.
Sequence in context: A066709 A108354 A146162 this_sequence A074142 A059084 A145490
Adjacent sequences: A118205 A118206 A118207 this_sequence A118209 A118210 A118211
|
|
KEYWORD
|
sign,easy
|
|
AUTHOR
|
Stuart Clary (clary(AT)uakron.edu), Apr 15, 2006
|
|
|
Search completed in 0.002 seconds
|
