cp's OEIS Frontend

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.

A349021 G.f. satisfies A(x) = 1/(1 - x/(1 - x*A(x))^2)^4.

This page as a plain text file.
%I A349021 #17 Aug 21 2023 08:22:57
%S A349021 1,4,18,104,671,4624,33342,248412,1897219,14774152,116864936,
%T A349021 936390692,7584216152,61992689940,510728310716,4236545121924,
%U A349021 35354229533389,296604036437692,2500154435955614,21164005790766980,179841032283906149,1533499916749203208
%N A349021 G.f. satisfies A(x) = 1/(1 - x/(1 - x*A(x))^2)^4.
%H A349021 Seiichi Manyama, <a href="/A349021/b349021.txt">Table of n, a(n) for n = 0..1000</a>
%F A349021 If g.f. satisfies: A(x) = 1/(1 - x/(1 - x*A(x))^s)^t, then a(n) = Sum_{k=0..n} binomial(t*n-(t-1)*(k-1),k) * binomial(n+(s-1)*k-1,n-k)/(n-k+1).
%p A349021 A349021 := proc(n)
%p A349021     local s,t ;
%p A349021     s := 2 ;
%p A349021     t := 4;
%p A349021     add( binomial(t*n-(t-1)*(k-1),k) * binomial(n+(s-1)*k-1,n-k) /(n-k+1) ,k=0..n) ;
%p A349021 end proc:
%p A349021 seq(A349021(n),n=0..40) ; # _R. J. Mathar_, May 12 2022
%o A349021 (PARI) a(n, s=2, t=4) = sum(k=0, n, binomial(t*n-(t-1)*(k-1), k)*binomial(n+(s-1)*k-1, n-k)/(n-k+1));
%Y A349021 Cf. A006013, A109081, A161799.
%K A349021 nonn
%O A349021 0,2
%A A349021 _Seiichi Manyama_, Nov 06 2021