login
E.g.f.: exp(x/(x^2 - 1)).
5

%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