speedup help

[Tom Moertel]

Bill Wood wrote:
> 
> I think I got the right results for B_3000: [...]

Mathematica 4.1 computes B_3000 as follows:

In[1]:= BernoulliB[3000]
Out[1]=
-28919392162925009628147618267854828678617917853903846822112332719169192942048\
518130533026045150594816676476469224548430690874860242714680177615276168526041\
  [ 83 lines omitted ]
535500476970565917875995082926214969042647564930033701717898024811160065586065\
5536080415376091806331620179538459843417141322454179981 /
    12072109463901626300591430

Cheers,
Tom