login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A055806 a(n) = T(n,n-6), array T as in A055801. 7
1, 1, 1, 2, 3, 5, 8, 13, 21, 33, 53, 79, 125, 176, 273, 365, 554, 709, 1053, 1300, 1891, 2267, 3234, 3785, 5303, 6085, 8385, 9465, 12845, 14302, 19139, 21065, 27828, 30329, 39593, 42790, 55251, 59281, 75772 (list; graph; refs; listen; history; text; internal format)
OFFSET

6,4

LINKS

G. C. Greubel, Table of n, a(n) for n = 6..1000

Index entries for linear recurrences with constant coefficients, signature (1,6,-6,-15,15,20,-20,-15,15,6,-6,-1,1).

FORMULA

From G. C. Greubel, Jan 24 2020: (Start)

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.

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)

MAPLE

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

MATHEMATICA

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 *)

PROG

(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

(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

(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

(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

CROSSREFS

Cf. A055801, A055802, A055803, A055804, A055805.

Sequence in context: A278800 A334738 A286938 * A023438 A117760 A181600

Adjacent sequences:  A055803 A055804 A055805 * A055807 A055808 A055809

KEYWORD

nonn

AUTHOR

Clark Kimberling, May 28 2000

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified September 25 10:40 EDT 2022. Contains 356978 sequences. (Running on oeis4.)