A220411 The denominators of J. L. Fields generalized Bernoulli polynomials.

1, -6, 60, -504, 2160, -3168, 786240, -51840, 1762560, -82736640, 1437004800, -858470400, 101896704000, -1881169920, 8659353600, -855305256960, 14071151001600, -150493593600, 8252165711462400, -70431001804800, 24434139856896000, -1076294062964736000

Offset

0,2

Comments

See A220412 for definitions and references.

Links

Table of n, a(n) for n=0..21.

Mathematica

F[0, _] = 1; F[n_, x_] := F[n, x] = -2x Sum[Binomial[n-1, 2k+1] BernoulliB[2k+2]/(2k+2) F[n-2k-2, x], {k, 0, n/2-1}] // Expand;
a[n_] := (-1)^n Denominator[Together[F[2n, x]]];
Table[a[n], {n, 0, 21}] (* Jean-François Alcover, Jun 27 2019 *)

Crossrefs

Sequence in context: A043033 A179711 A061495 * A248217 A102232 A121113

Adjacent sequences: A220408 A220409 A220410 * A220412 A220413 A220414

Keyword

sign

Author

Peter Luschny, Dec 30 2012

Status

approved