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 A055806 #12 Aug 14 2025 20:23:03
%S A055806 1,1,1,2,3,5,8,13,21,33,53,79,125,176,273,365,554,709,1053,1300,1891,
%T A055806 2267,3234,3785,5303,6085,8385,9465,12845,14302,19139,21065,27828,
%U A055806 30329,39593,42790,55251,59281,75772,80789,102297,108473,136157,143683,178893
%N A055806 a(n) = T(n,n-6), array T as in A055801.
%H A055806 G. C. Greubel, <a href="/A055806/b055806.txt">Table of n, a(n) for n = 6..1000</a>
%H A055806 <a href="/index/Rec#order_13">Index entries for linear recurrences with constant coefficients</a>, signature (1,6,-6,-15,15,20,-20,-15,15,6,-6,-1,1).
%F A055806 From _G. C. Greubel_, Jan 24 2020: (Start)
%F A055806 a(n) = (48915 -58884*n +29723*n^2 -7200*n^3 +965*n^4 -66*n^5 +2*n^6 + 3*(-1)^n*(-231345 +98988*n -18505*n^2 +1840*n^3 -95*n^4 +2*n^5))/92160, n > 6.
%F A055806 G.f.: x^6*(1 -6*x^2 +x^3 +16*x^4 -4*x^5 -23*x^6 +8*x^7 +20*x^8 -8*x^9 -9*x^10 + 4*x^11 +2*x^12 -x^13)/((1-x)^7*(1+x)^6). (End)
%p A055806 seq( `if(n=6,1, (48915 -58884*n +29723*n^2 -7200*n^3 +965*n^4 -66*n^5 +2*n^6 + 3*(-1)^n*(-231345 +98988*n -18505*n^2 +1840*n^3 -95*n^4 +2*n^5))/92160), n=6..50); # _G. C. Greubel_, Jan 24 2020
%t A055806 Table[If[n==6, 1, (48915 -58884*n +29723*n^2 -7200*n^3 +965*n^4 -66*n^5 +2*n^6 + 3*(-1)^n*(-231345 +98988*n -18505*n^2 +1840*n^3 -95*n^4 +2*n^5))/92160], {n, 6,50}] (* _G. C. Greubel_, Jan 24 2020 *)
%o A055806 (PARI) vector(50, n, my(m=n+5); if(m==6, 1, (48915 -58884*m +29723*m^2 -7200*m^3 +965*m^4 -66*m^5 +2*m^6 + 3*(-1)^m*(-231345 +98988*m -18505*m^2 +1840*m^3 -95*m^4 +2*m^5))/92160)) \\ _G. C. Greubel_, Jan 24 2020
%o A055806 (Magma) [1] cat [(48915 -58884*n +29723*n^2 -7200*n^3 +965*n^4 -66*n^5 +2*n^6 + 3*(-1)^n*(-231345 +98988*n -18505*n^2 +1840*n^3 -95*n^4 +2*n^5))/92160: n in [7..50]]; // _G. C. Greubel_, Jan 24 2020
%o A055806 (Sage) [1]+[(48915 -58884*n +29723*n^2 -7200*n^3 +965*n^4 -66*n^5 +2*n^6 + 3*(-1)^n*(-231345 +98988*n -18505*n^2 +1840*n^3 -95*n^4 +2*n^5))/92160 for n in (7..50)] # _G. C. Greubel_, Jan 24 2020
%o A055806 (GAP) Concatenation([1], List([7..50], n-> (48915 -58884*n +29723*n^2 -7200*n^3 +965*n^4 -66*n^5 +2*n^6 + 3*(-1)^n*(-231345 +98988*n -18505*n^2 +1840*n^3 -95*n^4 +2*n^5))/92160 )); # _G. C. Greubel_, Jan 24 2020
%Y A055806 Cf. A055801, A055802, A055803, A055804, A055805.
%K A055806 nonn,easy
%O A055806 6,4
%A A055806 _Clark Kimberling_, May 28 2000