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

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A176667 A triangle of polynomial coefficients:p(x,n)=Sum[(k + 1)^n*Binomial[x, k], {k, 0, Infinity}]/2^(x - n) 0
1, 2, 1, 4, 5, 1, 8, 18, 9, 1, 16, 54, 51, 14, 1, 32, 140, 220, 115, 20, 1, 64, 328, 750, 685, 225, 27, 1, 128, 784, 2044, 3080, 1785, 399, 35, 1, 256, 2096, 5068, 10220, 10465, 4088, 658, 44, 1, 512, 4704, 16776, 25284, 43806, 30681, 8484, 1026, 54, 1, 1024 (list; table; graph; refs; listen; history; text; internal format)
OFFSET

0,2

COMMENTS

Row sums are:A007582;

{1, 3, 10, 36, 136, 528, 2080, 8256, 32896, 131328, 524800,...}.

LINKS

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

FORMULA

p(x,n)=Sum[(k + 1)^n*Binomial[x, k], {k, 0, Infinity}]/2^(x - n);

t(n,m)=coefficients(p(x,n))

EXAMPLE

{1},

{2, 1},

{4, 5, 1},

{8, 18, 9, 1},

{16, 54, 51, 14, 1},

{32, 140, 220, 115, 20, 1},

{64, 328, 750, 685, 225, 27, 1},

{128, 784, 2044, 3080, 1785, 399, 35, 1},

{256, 2096, 5068, 10220, 10465, 4088, 658, 44, 1},

{512, 4704, 16776, 25284, 43806, 30681, 8484, 1026, 54, 1},

{1024, 2496, 61920, 79980, 118020, 163569, 79905, 16290, 1530, 65, 1}

MATHEMATICA

Clear[p, x, n]

p[x_, n_] = Sum[(k + 1)^n*Binomial[x, k], {k, 0, Infinity}]/2^(x - n);

Table[CoefficientList[FullSimplify[ExpandAll[p[x, n]]], x], {n, 0, 10}];

Flatten[%]

CROSSREFS

Cf. A007582

Sequence in context: A124237 A123876 A114164 * A126182 A154342 A143494

Adjacent sequences:  A176664 A176665 A176666 * A176668 A176669 A176670

KEYWORD

nonn,tabl,uned

AUTHOR

Roger L. Bagula, Apr 23 2010

STATUS

approved

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

License Agreements, Terms of Use, Privacy Policy. .

Last modified September 17 04:57 EDT 2019. Contains 327119 sequences. (Running on oeis4.)