A180320 AbsoluteValue(Numerator(Bernoulli(4n))) - Numerator(Bernoulli(4n)) mod denominator(Bernoulli(4n)) divided by two.

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

Offset: 0

Author

Robert G. Wilson v, Aug 27 2010

Keywords

• nonn

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, ..., .

Crossrefs

Cf. A169980, A180315, A180321.

Programs

Mathematica

f[n_] := Block[{b = BernoulliB[4 n]}, Mod[Abs@ Numerator@ b - Numerator@ b, Denominator@ b]/2]; Array[f, 60, 0]