|
%I #29 May 26 2019 00:31:29
%S 1,-1,1,-7,25,-181,1201,-10291,97777,-1013545,12202561,-151573951,
%T 2173233481,-31758579997,524057015665,-8838296029291,164416415570401,
%U -3145357419120721,65057767274601217,-1391243470549894135,31671795881695430521,-747996624368605997701
%N E.g.f.: exp(x/(x^2 - 1)).
%F E.g.f.: Product_{k>=1} 1/(1 + x^k)^(phi(k)/k), where phi() is the Euler totient function (A000010). - _Ilya Gutkovskiy_, May 25 2019
%t CoefficientList[Series[E^(x/(x^2 - 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-1))))
%Y Column k=2 of A293530.
%Y Cf. A088009.
%K sign
%O 0,4
%A _Seiichi Manyama_, Oct 11 2017
|
