|
%I #6 Jul 01 2019 10:35:42
%S 1,1,2,4,7,13,24,45,84,157,293,548,1025,1917,3585,6705,12542,23460,
%T 43882,82081,153535,287193,537205,1004861,1879631,3515926,6576683,
%U 12301953,23011306,43043596,80514826,150606312
%N 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/(...)))).
%F a(n) ~ c * d^n, where d = 1.870541465383068095221362846114209693931261586115556... and c = 0.55828451809888511309633311209777966847218631317600288... - _Vaclav Kotesovec_, Jul 01 2019
%t 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 *)
%K nonn
%O 0,3
%A _Paul D. Hanna_, Sep 26 2003
|
