A056567 Fibonomial coefficients.

1, 55, 4895, 352440, 27372840, 2063912136, 157373300370, 11948265189630, 908637119420910, 69056421075989160, 5249543573067466872, 399024295188779925720, 30331388438447118520355

Offset

0,2

Links

Table of n, a(n) for n=0..12.

Formula

a(n) = A010048(n+9, 9) = Fibonomial(n+9, 9).

G.f.: 1/p(10, n) with p(10, n)= 1 - 55*x - 1870*x^2 + 19635*x^3 + 85085*x^4 - 136136*x^5 - 85085*x^6 + 19635*x^7 + 1870*x^8 - 55*x^9 - x^10 = (1 - x - x^2)*(1 + 4*x - x^2)*(1 - 11*x - x^2)*(1 + 29*x - x^2)*(1 - 76*x - x^2) (n=10 row polynomial of signed Fibonomial triangle A055870; see this entry for Knuth and Riordan references).

Recursion: a(n) = 76*a(n-1) + a(n-2)+((-1)^n)*A056565(n), n >= 2, a(0)=1, a(1)=55.

Maple

with(combinat): a:=n->1/2227680*fibonacci(n)*fibonacci(n+1) *fibonacci(n+2) *fibonacci(n+3) *fibonacci(n+4) *fibonacci(n+5) *fibonacci(n+6) *fibonacci(n+7) *fibonacci(n+8): seq(a(n), n=1..13); # Zerinvary Lajos, Oct 07 2007

Mathematica

a[n_] := (1/2227680) Times @@ Fibonacci[n + Range[9]]; Array[a, 20, 0] (* Giovanni Resta, May 08 2016 *)

Prog

(PARI) b(n, k)=prod(j=1, k, fibonacci(n+j)/fibonacci(j));
vector(20, n, b(n-1, 9))  \\ Joerg Arndt, May 08 2016

Crossrefs

Cf. A010048, A000045, A001654-8, A056565-6, A001076 (signed), A049666, A049667 (signed), A049669.

Sequence in context: A206097 A103918 A013537 * A119081 A119051 A119083

Adjacent sequences: A056564 A056565 A056566 * A056568 A056569 A056570

Keyword

nonn,easy

Author

Wolfdieter Lang, Jul 10 2000

Status

approved