A238015 Denominator of (2*n+1)!*8*Bernoulli(2*n,1/2).

1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 2, 1, 2, 2, 4, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 2, 1, 2, 2, 4, 1, 1, 1, 2, 1, 2, 2, 4, 1, 2, 2, 4, 2, 4, 4, 8, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 2, 1, 2, 2, 4, 1, 1, 1, 2, 1, 2, 2, 4, 1, 2, 2, 4, 2, 4, 4, 8, 1, 1, 1, 2, 1

Offset

0,16

Comments

It appears that a(n) is 1 for n in A095736, 2 for n in A014312, 4 for n in A014313, 8 for n in A023688, 16 for n in A023689, 32 for n in A023690, 64 for n in A023691. - Michel Marcus, Feb 18 2014

Links

Robert Israel, Table of n, a(n) for n = 0..2000

Example

For n=15, (2*15+1)!*8*Bernoulli(2*15,1/2) = -79147239268966167007717425917182573906640625/2 so a(15) = 2.

Maple

seq(denom((2*n+1)!*8*bernoulli(2*n, 1/2)), n=0 .. 100);

Mathematica

Table[Denominator[(2 n + 1)! 8 BernoulliB[2 n, 1/2]], {n, 0, 200}] (* Vincenzo Librandi, Feb 18 2014 *)

Crossrefs

Cf. A033473.

Sequence in context: A086597 A322320 A369008 * A257679 A056059 A355915

Adjacent sequences: A238012 A238013 A238014 * A238016 A238017 A238018

Keyword

nonn,frac

Author

Robert Israel, Feb 17 2014

Status

approved