OFFSET
1,1
MATHEMATICA
Do[ If[ r = Numerator[ BernoulliB[2n]/(2n)] / Numerator[ BernoulliB[2n]/(2n(2n + 1))]; r != 1, Print[r]], {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