|
|
A180320
|
|
AbsoluteValue(Numerator(Bernoulli(4n))) - Numerator(Bernoulli(4n)) mod denominator(Bernoulli(4n)) divided by two.
|
|
1
|
|
|
0, 1, 1, 691, 47, 41, 691, 59, 47, 638653, 2011, 53, 14477, 83, 59, 22298681, 47, 1, 48540859, 1, 47717, 1058237, 5407, 77, 1450679, 4471, 83, 71532367, 226439, 89, 971032651, 1, 47, 1310531, 167, 117419, 965295473, 179, 1, 522242099, 47717, 113
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,4
|
|
COMMENTS
|
Sorted Values: 0, 1, 41, 47, 53, 59, 77, 83, 89, 113, 137, 167, 179, 197, 203, 209, 257, 293, 299, 323, 347, 377, 389, 413, 419, 497, 509, 533, 539, 587, 593, 599, ..., .
|
|
LINKS
|
|
|
MATHEMATICA
|
f[n_] := Block[{b = BernoulliB[4 n]}, Mod[Abs@ Numerator@ b - Numerator@ b, Denominator@ b]/2]; Array[f, 60, 0]
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|