|
| |
|
|
A071772
|
|
Absolute values of the numerator of B(prime(n)-1) where B(k) are the Bernoulli numbers.
|
|
0
| |
|
|
1, 1, 1, 1, 5, 691, 3617, 43867, 854513, 23749461029, 8615841276005, 26315271553053477373, 261082718496449122051, 1520097643918070802691, 596451111593912163277961, 801165718135489957347924991853
(list; graph; refs; listen; history; internal format)
|
|
|
|
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,...
|
|
|
MATHEMATICA
| Abs[Numerator[#]]&/@BernoulliB[Prime[Range[20]]-1] (* From Harvey P. Dale, June 28 2011 *)
|
|
|
PROG
| (PARI) for(n=1, 20, print1(abs(numerator(bernfrac(prime(n)-1))), ", "))
|
|
|
CROSSREFS
| Sequence in context: A000367 A176546 A092133 * A199089 A157281 A171269
Adjacent sequences: A071769 A071770 A071771 * A071773 A071774 A071775
|
|
|
KEYWORD
| easy,nonn
|
|
|
AUTHOR
| Benoit Cloitre (benoit7848c(AT)orange.fr), Jun 24 2002
|
| |
|
|
