A088353 G.f. = continued fraction: A(x)=1/(1-x-x^2-x^3/(1-x^4-x^5-x^6/(1-x^7-x^8-x^9/(...)))).

1, 1, 2, 4, 7, 13, 24, 45, 84, 157, 293, 548, 1025, 1917, 3585, 6705, 12542, 23460, 43882, 82081, 153535, 287193, 537205, 1004861, 1879631, 3515926, 6576683, 12301953, 23011306, 43043596, 80514826, 150606312

Offset: 0

Author

Paul D. Hanna, Sep 26 2003

Keywords

• nonn

Programs

Mathematica

nmax = 40; CoefficientList[Series[1/(1 - x - x^2 + ContinuedFractionK[-x^(3*k), 1 - x^(3*k + 1) - x^(3*k + 2), {k, 1, nmax}]), {x, 0, nmax}], x] (* Vaclav Kotesovec, Jul 01 2019 *)

Formula

a(n) ~ c * d^n, where d = 1.870541465383068095221362846114209693931261586115556... and c = 0.55828451809888511309633311209777966847218631317600288... - Vaclav Kotesovec, Jul 01 2019