OFFSET
0,2
COMMENTS
LINKS
Robert Israel, Table of n, a(n) for n = 0..10000
MAPLE
1, seq(denom(bernoulli(2*n))/3, n=1..100); # Robert Israel, Dec 16 2016
MATHEMATICA
Join[{1}, Denominator[BernoulliB[Range[2, 120, 2]]]/3]
PROG
(PARI) a(n)=ceil(denominator(bernfrac(2*n))/3) \\ Charles R Greathouse IV, Dec 16 2016
CROSSREFS
KEYWORD
nonn,frac
AUTHOR
Jonathan Sondow, Dec 12 2016
STATUS
approved