A071772 Absolute values of the numerator of B(prime(n)-1) where B(k) are the Bernoulli numbers.

1, 1, 1, 1, 5, 691, 3617, 43867, 854513, 23749461029, 8615841276005, 26315271553053477373, 261082718496449122051, 1520097643918070802691, 596451111593912163277961, 801165718135489957347924991853

Offset: 1

Author

Benoit Cloitre, Jun 24 2002

Keywords

• easy
• nonn

Comments

Prime(n) never divides a(n). a(n) reduced (modulo prime(n) ) equals often 30: for n = 16,33,35,40,57,62,66,77,97,102,104,119,...

Programs

Mathematica

Abs[Numerator[#]]&/@BernoulliB[Prime[Range[20]]-1] (* Harvey P. Dale, Jun 28 2011 *)

PARI

for(n=1,20,print1(abs(numerator(bernfrac(prime(n)-1))),","))