login
A300521
Expansion of Product_{k>=1} (1 - x^prime(k))^prime(k).
0
1, 0, -2, -3, 1, 1, 3, 0, 9, 8, 4, -31, -12, -13, 20, -13, 48, -17, 74, -87, 8, -143, 175, -174, 349, -164, 369, -651, 520, -1004, 1142, -1218, 1652, -1739, 3291, -3933, 3546, -5743, 6170, -8022, 11435, -13230, 17196, -18706, 22958, -31884, 38420, -49802, 58916
OFFSET
0,3
FORMULA
G.f.: Product_{k>=1} (1 - x^A000040(k))^A000040(k).
G.f.: exp(-Sum_{k>=1} A005063(k)*x^k/k).
MATHEMATICA
nmax = 48; CoefficientList[Series[Product[(1 - x^Prime[k])^Prime[k], {k, 1, nmax}], {x, 0, nmax}], x]
nmax = 48; CoefficientList[Series[Exp[-Sum[DivisorSum[k, Boole[PrimeQ[#]] #^2 &] x^k/k, {k, 1, nmax}]], {x, 0, nmax}], x]
KEYWORD
sign
AUTHOR
Ilya Gutkovskiy, Mar 08 2018
STATUS
approved