|
| |
|
|
A195130
|
|
Series inversion of A100130.
|
|
2
|
|
|
|
1, 24, 852, 35744, 1645794, 80415216, 4094489992, 214888573248, 11542515402255, 631467591949480, 35063515239394764, 1971043639046131296, 111949770626330347638, 6414671157989386260432, 370360217892318010055832
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
OFFSET
|
1,2
|
|
|
LINKS
|
Table of n, a(n) for n=1..15.
|
|
|
FORMULA
|
A005149(n) = -(-1)^n * a(n).
|
|
|
EXAMPLE
|
q + 24*q^2 + 852*q^3 + 35744*q^4 + 1645794*q^5 + 80415216*q^6 + ...
|
|
|
MATHEMATICA
|
a[ n_] := If[ n < 1, 0, SeriesCoefficient[ InverseSeries[ Series[ q / QPochhammer[ -q, q^2]^24, {q, 0, n}], q], {q, 0, n}]]
|
|
|
PROG
|
(PARI) {a(n) = if( n<1, 0, polcoeff( serreverse( x * prod( k=1, n, 1 + (-x)^k, 1 + x * O(x^n) )^24), n))}
|
|
|
CROSSREFS
|
Cf. A005149, A100130.
Sequence in context: A204559 A078522 A208792 * A005149 A027411 A184281
Adjacent sequences: A195127 A195128 A195129 * A195131 A195132 A195133
|
|
|
KEYWORD
|
nonn
|
|
|
AUTHOR
|
Michael Somos, Sep 11 2011
|
|
|
STATUS
|
approved
|
| |
|
|
