|
|
A162173
|
|
Absolute difference of numerator and denominator of Bernoulli(2*n), n >= 0.
|
|
3
|
|
|
0, 5, 31, 41, 31, 61, 3421, 1, 4127, 43069, 174941, 854375, 236366821, 8553097, 23749461899, 8615841261683, 7709321041727, 2577687858361, 26315271553055396563, 2929993913841553, 261082718496449135581
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,2
|
|
LINKS
|
|
|
FORMULA
|
|
|
EXAMPLE
|
0(=1-1), 5(=abs(1-6)), 31(=abs(-1-30)), 41(=abs(1-42)), 31(=abs(-1-30)), 61(=abs(5-66), 3421(=abs(-691-2730)), 1(=7-6), 4127(=abs(-3617-510)), etc.
|
|
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
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|