cp's OEIS Frontend

A135934 O.g.f.: A(x) = Sum_{n>=0} x^n / Product_{k=0..n} (1 - Fibonacci(k)*x).

%I A135934 #25 Sep 07 2022 07:28:00
%S A135934 1,1,2,4,9,24,77,299,1419,8312,60452,547939,6213566,88468601,
%T A135934 1585646789,35846274127,1023893974778,37005881297226,1694206791508891,
%U A135934 98335493373334998,7241161595237290969,676871453643079089963,80351261743964014059133,12117563014768206457325416
%N A135934 O.g.f.: A(x) = Sum_{n>=0} x^n / Product_{k=0..n} (1 - Fibonacci(k)*x).
%C A135934 After the first term, row sums of triangle A111669. - _Emanuele Munarini_, Dec 05 2017
%H A135934 Alois P. Heinz, <a href="/A135934/b135934.txt">Table of n, a(n) for n = 0..140</a>
%F A135934 G.f.: (1 - G(0) )/(1-x) where G(k) = 1 - 1/(1-Fibonacci(k)*x)/(1-x/(x-1/G(k+1) )); (continued fraction). - _Sergei N. Gladkovskii_, Jan 17 2013
%F A135934 G.f.: 1/(x*(1-x)*G(0)) - 1/x where G(k) = 1 - x/(x - 1/(1 + 1/(x*Fibonacci(k)-1)/G(k+1) )); (continued fraction). - _Sergei N. Gladkovskii_, Feb 13 2013
%e A135934 A(x) = 1 + x/(1-x) + x^2/((1-x)*(1-x)) + x^3/((1-x)*(1-x)*(1-2*x)) +
%e A135934 x^4/((1-x)*(1-x)*(1-2*x)(1-3*x)) + x^5/((1-x)*(1-x)*(1-2*x)*(1-3*x)*(1-5*x)) + x^6/((1-x)*(1-x)*(1-2*x)*(1-3*x)*(1-5*x)*(1-8*x)) +...
%p A135934 b:= proc(n, m) option remember; `if`(n=0, 1,
%p A135934       (<<0|1>, <1|1>>^m)[1, 2]*b(n-1, m)+b(n-1, m+1))
%p A135934     end:
%p A135934 a:= n-> b(n, 0):
%p A135934 seq(a(n), n=0..25);  # _Alois P. Heinz_, Aug 08 2021
%t A135934 b[n_, m_] := b[n, m] = If[n == 0, 1,
%t A135934    MatrixPower[{{0, 1}, {1, 1}}, m][[1, 2]]*b[n-1, m]+b[n-1, m+1]];
%t A135934 a[n_] :=  b[n, 0];
%t A135934 Table[a[n], {n, 0, 25}] (* _Jean-François Alcover_, Sep 07 2022, after _Alois P. Heinz_ *)
%o A135934 (PARI) {a(n)=polcoeff(sum(k=0, n, x^k/prod(j=0, k, 1-fibonacci(j)*x+x*O(x^n))), n)}
%Y A135934 Cf. A000045, A006116, A111669.
%K A135934 nonn
%O A135934 0,3
%A A135934 _Paul D. Hanna_, Dec 07 2007