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
Keywords
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
Comments