OFFSET
0,4
LINKS
G. C. Greubel, Table of n, a(n) for n = 0..10000
FORMULA
MATHEMATICA
Table[Log2[2^Binomial[n + 1, 2]/Denominator[Binomial[2 n, n]/4^n]], {n, 0, 100}] (* G. C. Greubel, May 01 2018 *)
Accumulate[Join[{0}, Table[n-1-IntegerExponent[n, 2], {n, 80}]]] (* Harvey P. Dale, Nov 15 2022 *)
PROG
(Magma) [Floor(Log(2, (2^Binomial(n+1, 2) / Denominator(Binomial(2*n, n) / 4^n)))): n in [0..80]]; // Vincenzo Librandi, May 02 2018
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Paul Barry, Feb 08 2007
STATUS
approved