login
A082531
(-1)^n * coefficient of x^n in 1/x-1/(1-eta(x)) power series.
0
1, 1, 1, 2, 3, 5, 7, 10, 14, 21, 32, 48, 70, 101, 148, 219, 325, 479, 704, 1033, 1519, 2238, 3300, 4860, 7149, 10516, 15478, 22792, 33560, 49404, 72713, 107022, 157536, 231914, 341405, 502561, 739758, 1088915, 1602917, 2359580, 3473411, 5112955
OFFSET
0,4
FORMULA
a(n) appears to be asymptotic to A*B^n where A=0.666953457161016631166386... B=1.47202915703312788636092648...
MATHEMATICA
nmax = 50; CoefficientList[Series[-1/x - 1/(1 - Product[1 - (-x)^k, {k, 1, nmax}]), {x, 0, nmax}], x] (* Vaclav Kotesovec, May 25 2020 *)
PROG
(PARI) a(n)=(-1)^n*polcoeff(1/x-1/(1-eta(x))+O(x^n), n)
CROSSREFS
Sequence in context: A347869 A221943 A120446 * A291298 A092021 A022475
KEYWORD
nonn
AUTHOR
Benoit Cloitre, May 01 2003
STATUS
approved