OFFSET
0,8
LINKS
Robert Israel, Table of n, a(n) for n = 0..5000
EXAMPLE
G.f.: A(x) = 1 + x^2 + x^4 + x^5 + x^6 + 2*x^7 + 2*x^8 + 3*x^9 + 5*x^10 + ...
MAPLE
R:= 1:
for i from numtheory:-pi(50) to 1 by -1 do
R:= series(1-x^ithprime(i)/R, x, 51);
od:
R:= series(1/R, x, 51):
seq(coeff(R, x, j), j=0..50); # Robert Israel, Apr 20 2017
MATHEMATICA
nmax = 50; CoefficientList[Series[1/(1 + ContinuedFractionK[-x^Prime[k], 1, {k, 1, nmax}]), {x, 0, nmax}], x]
CROSSREFS
KEYWORD
nonn
AUTHOR
Ilya Gutkovskiy, Apr 18 2017
STATUS
approved