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

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A113607 An extended triangle of Eulerian coefficients A123125: f(x,n)=x^(n+1)+1+A123125(x,n). 0
1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 4, 1, 1, 1, 1, 11, 11, 1, 1, 1, 1, 26, 66, 26, 1, 1, 1, 1, 57, 302, 302, 57, 1, 1, 1, 1, 120, 1191, 2416, 1191, 120, 1, 1, 1, 1, 247, 4293, 15619, 15619, 4293, 247, 1, 1, 1, 1, 502, 14608, 88234, 156190, 88234, 14608, 502, 1, 1, 1, 1, 1013 (list; table; graph; refs; listen; history; text; internal format)
OFFSET

1,2

COMMENTS

Not entirely symmetrical, the x^(n+1)+1 polynomials was added to remove zeros and make the triangle more symmetrical.

Row sums are:

{1, 3, 3, 4, 8, 26, 122, 722, 5042, 40322, 362882, 3628802}.

LINKS

Table of n, a(n) for n=1..69.

FORMULA

f(x,n)=x^(n+1)+1+A123125(x,n).

MATHEMATICA

lear[f, x, n, a] f[x_, n_] := f[x, n] = x^(n + 1) + (1 - x)^(n + 1)*Sum[k^n*x^k, {k, 0, Infinity}] + 1; Table[FullSimplify[ExpandAll[f[x, n]]], {n, 0, 10}]; a = Join[{{1}}, Table[CoefficientList[FullSimplify[ExpandAll[f[x, n]]], x], {n, 0, 10}]]; Flatten[a]

CROSSREFS

Cf. A123125.

Sequence in context: A300362 A248145 A171398 * A082586 A160094 A043283

Adjacent sequences:  A113604 A113605 A113606 * A113608 A113609 A113610

KEYWORD

nonn,tabl

AUTHOR

Roger L. Bagula and Gary W. Adamson, Aug 25 2008

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 August 26 05:23 EDT 2019. Contains 326328 sequences. (Running on oeis4.)