login
This site is supported by donations to The OEIS Foundation.

 

Logo

Invitation: celebrating 50 years of OEIS, 250000 sequences, and Sloane's 75th, there will be a conference at DIMACS, Rutgers, Oct 9-10 2014.

Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A053383 Triangle T(n,k) giving denominator of coefficient of x^(n-k) in Bernoulli polynomial B(n, x), n >= 0, 0<=k<=n. 13

%I

%S 1,1,2,1,1,6,1,2,2,1,1,1,1,1,30,1,2,3,1,6,1,1,1,2,1,2,1,42,1,2,2,1,6,

%T 1,6,1,1,1,3,1,3,1,3,1,30,1,2,1,1,5,1,1,1,10,1,1,1,2,1,1,1,1,1,2,1,66,

%U 1,2,6,1,1,1,1,1,2,1,6,1,1,1,1,1,2,1,1,1,2,1,1,1,2730,1,2,1,1,6,1,7,1,10

%N Triangle T(n,k) giving denominator of coefficient of x^(n-k) in Bernoulli polynomial B(n, x), n >= 0, 0<=k<=n.

%D M. Abramowitz and I. A. Stegun, eds., Handbook of Mathematical Functions, National Bureau of Standards Applied Math. Series 55, 1964 (and various reprintings), p. 809.

%D L. Comtet, Advanced Combinatorics, Reidel, 1974, p. 48, [14a].

%D M. Kauers and P. Paule, The Concrete Tetrahedron, Springer 2011, p. 53.

%D H. Rademacher, Topics in Analytic Number Theory, Springer, 1973, Chap. 1.

%H T. D. Noe, <a href="/A053383/b053383.txt">Rows n=0..50 of triangle, flattened</a>

%H M. Abramowitz and I. A. Stegun, eds., <a href="http://www.nrbook.com/abramowitz_and_stegun/">Handbook of Mathematical Functions</a>, National Bureau of Standards, Applied Math. Series 55, Tenth Printing, 1972 [alternative scanned copy].

%H <a href="/index/Be#Bernoulli">Index entries for sequences related to Bernoulli numbers.</a>

%e The polynomials B(0,x), B(1,x), B(2,x), ... are 1; x-1/2; x^2-x+1/6; x^3-3/2*x^2+1/2*x; x^4-2*x^3+x^2-1/30; x^5-5/2*x^4+5/3*x^3-1/6*x; x^6-3*x^5+5/2*x^4-1/2*x^2+1/42; ...

%e 1, -1/2, 1, 1/6, -1, 1, 0, 1/2, -3/2, 1, -1/30, 0, 1, -2, 1, 0, -1/6, 0, 5/3, -5/2, 1, 1/42, 0, -1/2, 0, 5/2, -3, 1, ... = A053382/A053383 (reflected)

%e 1, 1, -1/2, 1, -1, 1/6, 1, -3/2, 1/2, 0, 1, -2, 1, 0, -1/30, 1, -5/2, 5/3, 0, -1/6, 0, 1, -3, 5/2, 0, -1/2, 0, 1/42, ... = A053382/A053383

%p with(numtheory); bernoulli(n,x);

%t t[n_, k_] := Denominator[ Coefficient[ BernoulliB[n, x], x, n - k]]; Flatten[ Table[t[n, k], {n, 0, 13}, {k, 0, n}]] (* _Jean-Fran├žois Alcover_, Jan 15 2013 *)

%o (PARI) v=[];for(n=0,6,v=concat(v,apply(denominator,Vec(bernpol(n)))));v \\ _Charles R Greathouse IV_, Jun 08 2012

%Y Cf. A053382, A048998, A048999.

%Y Cf. A144845 (lcm of row n)

%K nonn,easy,nice,frac,tabl

%O 0,3

%A _N. J. A. Sloane_, Jan 06 2000

%E More terms from _James A. Sellers_, Jan 10 2000

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Transforms | Superseeker | Recent | More pages
The OEIS Community | Maintained by The OEIS Foundation Inc.

Content is available under The OEIS End-User License Agreement .

Last modified July 25 04:50 EDT 2014. Contains 244900 sequences.