|
|
A293533
|
|
E.g.f.: 1/Product_{m > 0, m mod 3 > 0} exp(x^m).
|
|
1
|
|
|
1, -1, -1, 5, -23, -41, 1111, -6259, -16015, 828143, -6453809, -23557931, 1516982809, -15821700025, -76745280793, 5613303472349, -73951449390239, -445513157340449, 36776986711862815, -582726291386478427, -4158268555818657079, 388618610293537423799
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,4
|
|
LINKS
|
|
|
FORMULA
|
E.g.f.: exp((x + x^2)/(x^3 - 1)).
|
|
MATHEMATICA
|
CoefficientList[Series[E^(x*(1 + x)/(x^3 - 1)), {x, 0, 20}], x] * Range[0, 20]! (* Vaclav Kotesovec, Oct 12 2017 *)
|
|
PROG
|
(PARI) N=66; x='x+O('x^N); Vec(serlaplace(exp((x+x^2)/(x^3-1))))
(PARI) N=66; x='x+O('x^N); Vec(serlaplace(prod(m=1, N, exp(x^(3*m))/exp(x^m))))
|
|
CROSSREFS
|
|
|
KEYWORD
|
sign
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|