|
|
A180321
|
|
(Numerator(Bernoulli(4n)) mod denominator(Bernoulli(4n)) - AbsoluteValue(Numerator(Bernoulli(4n))) mod denominator(Bernoulli(4n)))/4.
|
|
1
|
|
|
0, 7, 7, 337, 104, 62, 337, 188, 104, 160471, 2377, 146, 4364, 356, 188, 3047342, 104, 7, 10754788, 7, 33644, 321959, 12649, 314, 400103, 6097, 356, 16531744, 304598, 398, 96547657, 7, 104, 396467, 944, 111158, 112780961, 1028, 7, 187526468, 33644
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,2
|
|
COMMENTS
|
Sorted Values: 0, 7, 62, 104, 146, 188, 314, 337, 356, 398, 566, 734, 944, 1028, 1154, 1196, 1238, 1261, 1574, 1826, 1868, 2036, 2204, 2377, 2414, ..., .
|
|
LINKS
|
|
|
MATHEMATICA
|
f[n_] := Block[{b = BernoulliB[4 n]}, (Mod[Numerator@b, Denominator@b] - Mod[Abs@Numerator@b, Denominator@b])/4]; Array[f, 60, 0]
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|