A090179 Ratio of numerator(Bernoulli(2*n)/(2*n)) to numerator(Bernoulli(2*n)/(2*n*(2*n+1))) for n's for which they are different.
37, 37, 103, 59, 131, 37, 67, 37, 283, 59, 37, 101, 37, 67, 691, 37, 59, 157, 37, 37, 67, 59, 617, 103, 37, 593, 37, 37, 59, 101, 37, 67, 157, 37, 149, 59, 233, 37, 131
Offset: 1
Keywords
Programs
-
Mathematica
Do[ If[ r = Numerator[ BernoulliB[2n]/(2n)] / Numerator[ BernoulliB[2n]/(2n(2n + 1))]; r != 1, Print[r]], {n, 1, 10030}]
Extensions
a(6)-a(39) from Robert G. Wilson v, Feb 09 2004