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 A077997 #51 Aug 06 2024 02:14:16
%S A077997 1,1,3,8,20,51,130,331,843,2147,5468,13926,35467,90328,230049,585893,
%T A077997 1492163,3800268,9678592,24649615,62778090,159884387,407196479,
%U A077997 1037055435,2641191736,6726635386,17131517943,43630863008,111119879345,283002139641,720755021635
%N A077997 Expansion of (1-x)/(1-2*x-x^2-x^3).
%C A077997 Number of compositions of n where there is one sort of part 1, two sorts of part 2, and three sorts of every other part. - _Joerg Arndt_, Mar 15 2014
%C A077997 Number of ways to tile a strip of length n with red and blue squares, blue dominos, and blue trominos, where the first tile must be blue. - _Greg Dresden_ and Arnim Kuchhal, Aug 05 2024
%H A077997 G. C. Greubel, <a href="/A077997/b077997.txt">Table of n, a(n) for n = 0..1000</a>
%H A077997 <a href="/index/Rec#order_03">Index entries for linear recurrences with constant coefficients</a>, signature (2,1,1).
%F A077997 a(n) = 2*a(n-1) + a(n-2) + a(n-3), n>2, with a(0)=1, a(1)=1, a(2)=3. - _Philippe Deléham_, Nov 20 2008
%F A077997 If p[1]=1, p[2]=2, p[i]=3, (i>2), and if A is Hessenberg matrix of order n defined by: A[i,j]=p[j-i+1], (i<=j), A[i,j]=-1, (i=j+1), and A[i,j]=0 otherwise. Then, for n>=1, a(n)=det A. - _Milan Janjic_, May 02 2010
%F A077997 a(n) = Sum_{m=1..n} Sum_{i=0..n-m} binomial(m+i-1,m-1)*Sum_{j=0..m} binomial(j,n-3*m+2*j-i)*binomial(m,j), n>0, a(0)=1. - _Vladimir Kruchinin_, May 12 2011
%t A077997 CoefficientList[Series[(1-x)/(1-2x-x^2-x^3),{x,0,30}],x] (* or *) LinearRecurrence[{2,1,1},{1,1,3},30] (* _Harvey P. Dale_, May 24 2011 *)
%o A077997 (Maxima) a(n):=sum(sum(binomial(m+i-1,m-1) * sum(binomial(j,n-3*m+2*j-i) * binomial(m,j),j,0,m), i,0,n-m), m,1,n); /* _Vladimir Kruchinin_, May 12 2011 */
%o A077997 (PARI) Vec((1-x)/(1-2*x-x^2-x^3)+O(x^30)) \\ _Charles R Greathouse IV_, Sep 26 2012
%o A077997 (Magma) R<x>:=PowerSeriesRing(Integers(), 30); Coefficients(R!( (1-x)/( 1-2*x-x^2-x^3) )); // _G. C. Greubel_, Jun 27 2019
%o A077997 (Sage) ((1-x)/(1-2*x-x^2-x^3)).series(x, 30).coefficients(x, sparse=False) # _G. C. Greubel_, Jun 27 2019
%o A077997 (GAP) a:=[1,1,3];; for n in [4..30] do a[n]:=2*a[n-1]+a[n-2]+a[n-3]; od; a; # _G. C. Greubel_, Jun 27 2019
%K A077997 nonn,easy
%O A077997 0,3
%A A077997 _N. J. A. Sloane_, Nov 17 2002
%E A077997 Deleted certain dangerous or potentially dangerous links. - _N. J. A. Sloane_, Jan 30 2021