|
| |
|
|
A140219
|
|
Denominator of the coefficient [x^1] of the Bernoulli twin number polynomial C(n,x).
|
|
1
| |
|
|
1, 1, 2, 2, 6, 6, 6, 6, 10, 10, 6, 6, 210, 210, 2, 2, 30, 30, 42, 42, 110, 110, 6, 6, 546, 546, 2, 2, 30, 30, 462, 462, 170, 170, 6, 6, 51870, 51870, 2, 2, 330, 330, 42, 42, 46, 46, 6, 6, 6630, 6630, 22, 22, 30, 30, 798, 798, 290
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 0,3
|
|
|
COMMENTS
| See A140351 for the main part of the documentation.
|
|
|
MAPLE
| C := proc(n, x) if n = 0 then 1; else add(binomial(n-1, j-1)* bernoulli(j, x), j=1..n) ; expand(%) ; end if ; end proc:
A140219 := proc(n) coeff(C(n, x), x, 1) ; denom(%) ; end proc:
seq(A140219(n), n=1..80) ; # R. J. Mathar, Sep 22 2011
|
|
|
CROSSREFS
| Cf. A140351 (numerators), A048594.
Sequence in context: A063944 A086447 A196872 * A077081 A084700 A122766
Adjacent sequences: A140216 A140217 A140218 * A140220 A140221 A140222
|
|
|
KEYWORD
| nonn,frac
|
|
|
AUTHOR
| Paul Curtz (bpcrtz(AT)free.fr), Jun 23 2008
|
| |
|
|
