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,4

Links

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

Mathematica

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

Prog

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

Crossrefs

Sequence in context: A208970 A213939 A267485 * A328067 A355792 A286093

Adjacent sequences: A092776 A092777 A092778 * A092780 A092781 A092782

Keyword

nonn

Author

Ralf Stephan, Apr 14 2004

Extensions

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

Status

approved