OFFSET
1,1
MATHEMATICA
Do[ If[ Numerator[ BernoulliB[2n] / (2n)] != Numerator[ BernoulliB[2n] / (2n(2n + 1))], Print[n]], {n, 1, 10030}]
CROSSREFS
KEYWORD
nonn
AUTHOR
mohammed bouayoun (bouyao(AT)wanadoo.fr), Feb 04 2004
EXTENSIONS
a(6)-a(39) from Robert G. Wilson v, Feb 09 2004
STATUS
approved