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

Table of n, a(n) for n=0..41.

Mathematica

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

Crossrefs

Cf. A169980, A180315, A180321.

Sequence in context: A046988 A189683 A029825 * A159283 A106281 A127341

Adjacent sequences: A180317 A180318 A180319 * A180321 A180322 A180323

Keyword

nonn

Author

Robert G. Wilson v, Aug 27 2010

Status

approved