|
%I #12 Mar 24 2020 15:38:45
%S 1,0,-2,-3,4,1,1,-9,13,-9,20,-38,76,-75,65,-323,378,-197,805,-1394,
%T 1635,-2513,3175,-5442,11135,-12570,12526,-33357,51563,-46460,93551,
%U -155750,186650,-313241,421641,-620393,1131820,-1321220,1663951,-3559915,5011036,-5207116
%N G.f.: Product_{k>=1} 1/(1+prime(k)*x^prime(k)).
%H Seiichi Manyama, <a href="/A298160/b298160.txt">Table of n, a(n) for n = 0..6278</a>
%t CoefficientList[Series[Product[1/(1+Prime[k]x^Prime[k]),{k,50}],{x,0,50}],x] (* _Harvey P. Dale_, Mar 24 2020 *)
%Y Cf. A002099, A048165, A298159.
%K sign
%O 0,3
%A _Seiichi Manyama_, Jan 14 2018
|
