This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A355043 #12 Jun 02 2025 15:25:51
%S A355043 1,1,2,4,9,21,50,121,296,730,1811,4513,11285,28294,71088,178904,
%T A355043 450840,1137345,2871720,7256093,18345060,46403039,117421762,297232446,
%U A355043 752601692,1906056161,4828267801,12232594912,30996034963,78549710061,199079279640,504596195477,1279065489044
%N A355043 Expansion of the continued fraction 1 / (1-q-q^2 / (1-q-q^2-q^3 / (1-q-q^2-q^3-q^4 / (...)))).
%C A355043 Starts similar to A091964, terms differ after 730.
%F A355043 a(n) ~ c * d^n, where d = 2.5358790673564851880281667369326354455... and c = 0.14917782209027525483339419811881753... - _Vaclav Kotesovec_, Jun 16 2022
%t A355043 nmax = 40; CoefficientList[Series[1/(1 - x - x^2/(1 - x - x^2 + ContinuedFractionK[-x^k, 1 - x*(1 - x^k)/(1 - x), {k, 3, nmax}])), {x, 0, nmax}], x] (* _Vaclav Kotesovec_, Jun 16 2022 *)
%o A355043 (PARI) N=44; q='q+O('q^N);
%o A355043 f(n) = 1 - sum(k=1,n-1,q^k);
%o A355043 s=1; forstep(j=N, 2, -1, s = q^j/s; s = f(j) - s ); s = 1/s;
%o A355043 Vec(s)
%Y A355043 Cf. A355040, A355046, A091964.
%K A355043 nonn
%O A355043 0,3
%A A355043 _Joerg Arndt_, Jun 16 2022