A033473 Numerator of (2*n+1)!*8*Bernoulli(2*n,1/2).

8, -4, 28, -930, 96012, -24144750, 12602990070, -12203470904625, 20180112406353900, -53495387545025175750, 216267236072968468547250, -1280630367874799320798794375, 10743714652441927865738713818750, -124178158916511109662405449217796875

Offset

0,1

Comments

As R. Israel remarks, the expression (2*n+1)!*8*Bernoulli(2*n,1/2) is no longer an integer for n = 15, 23, 27, 29, 30, 31, 39, 43, 45, 46, 47,... - M. F. Hasler, Feb 16 2014

Denominators are in A238015. See A238163 for the rounded values and A238164 for another maybe more interesting variant. - M. F. Hasler, Mar 01 2014

Links

Vincenzo Librandi, Table of n, a(n) for n = 0..150

Index entries for sequences related to Bernoulli numbers.

Mathematica

a[n_] := Numerator[ (2 n + 1)! 8 BernoulliB[2 n, 1/2]]; Array[a, 14, 0] (* Robert G. Wilson v, Feb 17 2014, edited by M. F. Hasler, Mar 01 2014 *)
Table[Numerator[(2 n + 1)! 8 BernoulliB[2 n, 1/2]], {n, 0, 20}] (* Vincenzo Librandi, Feb 18 2014 *)

Prog

(PARI) A033473 = n->numerator((2*n+1)!*8*subst(bernpol(2*n, x), x, 1/2)) \\ M. F. Hasler, Feb 16-18 2014

Crossrefs

Cf. A238163, A238164.

Sequence in context: A143368 A160415 A160411 * A238163 A213773 A213178

Adjacent sequences: A033470 A033471 A033472 * A033474 A033475 A033476

Keyword

sign

Author

N. J. A. Sloane

Extensions

Definition changed by M. F. Hasler, Feb 16 2014

Further edits by M. F. Hasler, Mar 01 2014

Status

approved