A090177 Numbers n such that numerator(Bernoulli(2*n)/(2*n)) is different from numerator(Bernoulli(2*n)/(2*n*(2*n+1))).

610, 1276, 1287, 1327, 1506, 1942, 1976, 2608, 2971, 3038, 3274, 3484, 3940, 4187, 4491, 4606, 4749, 4945, 5272, 5938, 6398, 6460, 6478, 6540, 6604, 6819, 7270, 7936, 8171, 8534, 8602, 8609, 8713, 9268, 9759, 9882, 9902, 9934, 10021

Offset: 1

Author

mohammed bouayoun (bouyao(AT)wanadoo.fr), Feb 04 2004

Keywords

• nonn

Comments

Coincides with A090495(n) + A090496(n) - 1, except for order of terms.

Crossrefs

Cf. A090179, A001067, A090495.

Programs

Mathematica

Do[ If[ Numerator[ BernoulliB[2n] / (2n)] != Numerator[ BernoulliB[2n] / (2n(2n + 1))], Print[n]], {n, 1, 10030}]

Extensions

a(6)-a(39) from Robert G. Wilson v, Feb 09 2004