OFFSET
0,2
COMMENTS
PROG
(PARI) fr(n) = {default(seriesprecision, n+1); egf = (x/2)*(exp(-x)+1)/(exp(x)-1); (n)!* polcoeff(egf, n); }
ibtfr(n) = sum(k = 0, n, (-1)^(n-k)*binomial(n, k) * fr(k));
lista(nn) = {forstep(n = 0, nn, 2, print1(numerator(ibtfr(n)), ", "); ); } \\ Michel Marcus, Sep 06 2013
CROSSREFS
KEYWORD
frac,sign
AUTHOR
Paul Curtz & Michel Marcus, Sep 06 2013
STATUS
approved