|
%I #7 May 25 2019 02:28:48
%S 1,-1,1,-1,-5,29,-89,209,841,-50905,458641,-2423521,8243731,158742869,
%T -2450634185,18519809489,-1402926535919,21355930009679,
%U -139305034406879,306503668195775,40578438892908331,-816475138658703091,6941097158619626311,-24787202385366731311
%N Expansion of e.g.f. exp(-Sum_{k>=1} x^(k^2)/k^2).
%F E.g.f.: Product_{k>=1} (1 - x^k)^(lambda(k)/k), where lambda() is the Liouville function (A008836).
%t nmax = 23; CoefficientList[Series[Exp[-Sum[x^(k^2)/k^2, {k, 1, nmax}]], {x, 0, nmax}], x] Range[0, nmax]!
%t nmax = 23; CoefficientList[Series[Product[(1 - x^k)^(LiouvilleLambda[k]/k), {k, 1, nmax}], {x, 0, nmax}], x] Range[0, nmax]!
%Y Cf. A008836, A118205, A190585, A205801, A306831, A308397, A308398.
%K sign
%O 0,5
%A _Ilya Gutkovskiy_, May 24 2019
|
