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!)
A055805 a(n) = T(n,n-5), array T as in A055801. 7
1, 1, 1, 2, 3, 5, 8, 13, 20, 32, 46, 72, 97, 148, 189, 281, 344, 499, 591, 838, 967, 1343, 1518, 2069, 2300, 3082, 3380, 4460, 4837, 6294, 6763, 8689, 9264, 11765, 12461, 15658, 16491, 20521, 21508, 26525, 27684, 33860 (list; graph; refs; listen; history; text; internal format)
OFFSET

5,4

LINKS

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

Index entries for linear recurrences with constant coefficients, signature (1,5,-5,-10,10,10,-10,-5,5,1,-1).

FORMULA

From Colin Barker, Nov 28 2014: (Start)

a(n) = ((2*n^5 -45*n^4 +450*n^3 -2070*n^2 +4873*n -3585) +5*(-1)^n*(n^4 -34*n^3 +446*n^2 -2741*n +6861))/7680 for n>5.

G.f.: x^5*(1 -5*x^2 +x^3 +11*x^4 -3*x^5 -12*x^6 +5*x^7 +7*x^8 -3*x^9 -2*x^10 + x^11)/((1-x)^6*(1+x)^5). (End)

MAPLE

seq( `if`(n=5, 1, ((2*n^5 -45*n^4 +450*n^3 -2070*n^2 +4873*n -3585) +5*(-1)^n*(n^4 -34*n^3 +446*n^2 -2741*n +6861))/7680), n=5..50); # G. C. Greubel, Jan 24 2020

MATHEMATICA

Table[If[n==5, 1, ((2*n^5 -45*n^4 +450*n^3 -2070*n^2 +4873*n -3585) +5*(-1)^n*(n^4 -34*n^3 +446*n^2 -2741*n +6861))/7680], {n, 5, 50}] (* G. C. Greubel, Jan 24 2020 *)

PROG

(PARI) vector(50, n, my(m=n+4); if(m==5, 1, ((2*m^5 -45*m^4 +450*m^3 -2070*m^2 +4873*m -3585) +5*(-1)^m*(m^4 -34*m^3 +446*m^2 -2741*m +6861))/7680)) \\ G. C. Greubel, Jan 24 2020

(Magma) [1] cat [((2*n^5 -45*n^4 +450*n^3 -2070*n^2 +4873*n -3585) +5*(-1)^n*(n^4 -34*n^3 +446*n^2 -2741*n +6861))/7680: n in [6..50]]; // G. C. Greubel, Jan 24 2020

(Sage) [1]+[((2*n^5 -45*n^4 +450*n^3 -2070*n^2 +4873*n -3585) +5*(-1)^n*(n^4 -34*n^3 +446*n^2 -2741*n +6861))/7680 for n in (6..50)] # G. C. Greubel, Jan 24 2020

(GAP) Concatenation([1], List([6..50], n-> ((2*n^5 -45*n^4 +450*n^3 -2070*n^2 +4873*n -3585) +5*(-1)^n*(n^4 -34*n^3 +446*n^2 -2741*n +6861))/7680 )); # G. C. Greubel, Jan 24 2020

CROSSREFS

Cf. A055801, A055802, A055803, A055804, A055806.

Sequence in context: A173597 A059923 A266331 * A023437 A322332 A225394

Adjacent sequences:  A055802 A055803 A055804 * A055806 A055807 A055808

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 21:49 EDT 2022. Contains 356986 sequences. (Running on oeis4.)