OFFSET
0,14
LINKS
N. J. A. Sloane, Transforms
Eric Weisstein's World of Mathematics, Rogers-Ramanujan Continued Fraction
FORMULA
G.f.: 1/(1 - x*Product_{k>=1} (1 - x^(5*k-1))*(1 - x^(5*k-4))/((1 - x^(5*k-2))*(1 - x^(5*k-3)))).
a(0) = 1; a(n) = Sum_{k=1..n} A007325(k-1)*a(n-k).
MATHEMATICA
nmax = 68; CoefficientList[Series[1/(1 - x/(1 + ContinuedFractionK[x^k, 1, {k, 1, nmax}])), {x, 0, nmax}], x]
nmax = 68; CoefficientList[Series[1/(1 - x QPochhammer[x, x^5] QPochhammer[x^4, x^5]/(QPochhammer[x^2, x^5] QPochhammer[x^3, x^5])), {x, 0, nmax}], x]
CROSSREFS
KEYWORD
sign
AUTHOR
Ilya Gutkovskiy, Mar 30 2018
STATUS
approved