OFFSET
0,2
REFERENCES
F. N. David, Probability Theory for Statistical Methods, Cambridge, 1949; see pp. 103-104. [There is an error in the recurrence for B_s^{(r)}.]
N. E. Nørlund, Vorlesungen über Differenzenrechnung. Springer-Verlag, Berlin, 1924, p. 459.
N. J. A. Sloane, A Handbook of Integer Sequences, Academic Press, 1973 (includes this sequence).
N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).
LINKS
N. E. Nörlund, Vorlesungen über Differenzenrechnung, Springer-Verlag, Berlin, 1924 [Annotated scanned copy of pages 144-151 and 456-463]
FORMULA
EXAMPLE
The Bernoulli polynomials B(0)(x) through B(6)(x) are:
1;
-(1/2)*x;
(1/12)*(3*x-1)*x;
-(1/8)*(x-1)*x^2;
(1/240)*(15*x^3-30*x^2+5*x+2)*x;
-(1/96)*(x-1)*(3*x^2-7*x-2)*x^2;
(1/4032)*(63*x^5-315*x^4+315*x^3+91*x^2-42*x-16)*x.
MAPLE
B:=bernoulli; b:=proc(s) option remember; local t; global r; if s=0 then RETURN(1); fi; expand((-r/s)*add( (-1)^t*binomial(s, t)*B(t)*b(s-t), t=1..s)); end; [seq(denom(b(n)), n=0..30)];
MATHEMATICA
B[s_] := B[s] = If[s == 0, 1, (-x/s)*Sum[(-1)^t*Binomial[s, t]*
BernoulliB[t]*B[s - t], {t, 1, s}]] // Factor;
a[n_] := If[n == 0, 1, B[n] // First // Denominator];
Table[a[n], {n, 0, 26}] (* Jean-François Alcover, Jul 24 2022 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
EXTENSIONS
Entry revised Dec 03 2004
STATUS
approved