A293533 - OEIS

%I #16 Oct 13 2017 05:27:25

%S 1,-1,-1,5,-23,-41,1111,-6259,-16015,828143,-6453809,-23557931,

%T 1516982809,-15821700025,-76745280793,5613303472349,-73951449390239,

%U -445513157340449,36776986711862815,-582726291386478427,-4158268555818657079,388618610293537423799

%N E.g.f.: 1/Product_{m > 0, m mod 3 > 0} exp(x^m).

%F E.g.f.: exp((x + x^2)/(x^3 - 1)).

%t CoefficientList[Series[E^(x*(1 + x)/(x^3 - 1)), {x, 0, 20}], x] * Range[0, 20]! (* _Vaclav Kotesovec_, Oct 12 2017 *)

%o (PARI) N=66; x='x+O('x^N); Vec(serlaplace(exp((x+x^2)/(x^3-1))))

%o (PARI) N=66; x='x+O('x^N); Vec(serlaplace(prod(m=1, N, exp(x^(3*m))/exp(x^m))))

%Y Column k=3 of A293530.

%K sign

%O 0,4

%A _Seiichi Manyama_, Oct 11 2017