A092779 Exponent of 2 in central fibonomial coefficient A003267.

0, 0, 1, 2, 2, 3, 1, 1, 2, 3, 3, 4, 1, 1, 2, 3, 3, 4, 2, 2, 3, 4, 4, 5, 1, 1, 2, 3, 3, 4, 2, 2, 3, 4, 4, 5, 2, 2, 3, 4, 4, 5, 3, 3, 4, 5, 5, 6, 1, 1, 2, 3, 3, 4, 2, 2, 3, 4, 4, 5, 2, 2, 3, 4, 4, 5, 3, 3, 4, 5, 5, 6, 2, 2, 3, 4, 4, 5, 3, 3, 4, 5, 5, 6, 3, 3, 4, 5, 5, 6, 4, 4, 5, 6, 6, 7, 1, 1, 2, 3, 3, 4, 2

Offset: 0

Author

Ralf Stephan, Apr 14 2004

Keywords

• nonn

Programs

Mathematica

Table[IntegerExponent[Round[GoldenRatio^(n^2) QBinomial[2 n, n, -1/GoldenRatio^2]], 2], {n, 0, 30}] (* Vladimir Reshetnikov, Sep 27 2016 *)

PARI

a(n)=valuation(prod(m=0,n-1,fibonacci(2*n-m))/prod(m=1,n,fibonacci(m)),2)

Extensions

a(0) = 0 added and offset changed from 1 to 0 by Vladimir Reshetnikov, Sep 27 2016