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,5

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,...

Links

Table of n, a(n) for n=1..16.

Mathematica

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

Prog

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

Crossrefs

Sequence in context: A092133 A274025 A281585 * A201005 A255912 A213932

Adjacent sequences: A071769 A071770 A071771 * A071773 A071774 A071775

Keyword

easy,nonn

Author

Benoit Cloitre, Jun 24 2002

Status

approved