OFFSET
0,2
LINKS
Muniru A Asiru, Table of n, a(n) for n = 0..310
EXAMPLE
a(0) = abs(1 - 1) = 0.
a(1) = abs(1 - 6) = 5.
a(2) = abs(-1 - 30) = 31.
MAPLE
MATHEMATICA
a[n_] := Abs[Numerator[BernoulliB[2n]] - Denominator[BernoulliB[2n]]]; Array[a, 20, 0] (* Amiram Eldar, Nov 25 2018 *)
Abs[Denominator[#]-Numerator[#]]&/@BernoulliB[2 Range[0, 20]] (* Harvey P. Dale, Jun 18 2022 *)
PROG
(PARI) a(n) = my(b=bernfrac(2*n)); abs(numerator(b)-denominator(b)); \\ Michel Marcus, Nov 25 2018
(GAP) List([0..30], n->AbsInt(NumeratorRat(Bernoulli(2*n))-DenominatorRat(Bernoulli(2*n)))); # Muniru A Asiru, Nov 25 2018
CROSSREFS
KEYWORD
nonn
AUTHOR
Juri-Stepan Gerasimov, Jun 27 2009
EXTENSIONS
a(13) corrected by Paul Curtz, Sep 07 2009
a(15) and a(16) corrected by R. J. Mathar, Sep 13 2009
Offset 0 from Amiram Eldar, Nov 25 2018
STATUS
approved