OFFSET
0,4
MATHEMATICA
Table[(2*(4^n-1))/Denominator[BernoulliB[2n]], {n, 0, 40}] (* Harvey P. Dale, Jul 20 2011 *)
PROG
(PARI) a(n)=2*(4^n-1)/denominator(bernfrac(2*n))
CROSSREFS
KEYWORD
nonn
AUTHOR
Benoit Cloitre, Dec 13 2003
EXTENSIONS
Corrected and extended by Harvey P. Dale, Jul 20 2011
STATUS
approved