OFFSET
0,4
LINKS
Andrew Howroyd, Table of n, a(n) for n = 0..500
MATHEMATICA
seq[n_] := InverseSeries[x/(1 + Sum[If[PrimeQ[k], k*2^(k-3)*x^k, 0], {k, 2, n}]) + O[x]^(n+2), x]/x;
CoefficientList[seq[28], x] (* Jean-François Alcover, May 15 2018, translated from PARI *)
PROG
(PARI) seq(n)={Vec(serreverse(x/(1 + sum(k=2, n, if(isprime(k), k*2^(k-3)*x^k))) + O(x^(n+2)) )/x)}
CROSSREFS
KEYWORD
nonn
AUTHOR
Andrew Howroyd, Apr 29 2018
STATUS
approved