login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A137216 Erlang C queues type triangular sequence based on A122525. 0
1, 1, 1, 2, 2, 3, 6, 9, 22, 41, 24, 64, 266, 708, 1486, 120, 625, 4536, 17457, 48088, 108129, 720, 7776, 100392, 563088, 2043864, 5709120, 13399176, 5040, 117649, 2739472, 22516209, 107972560, 375217945, 1053757584, 2544404617, 40320 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,4

LINKS

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

FORMULA

t(n,m)=If[m == 0, n!, (m^n*n^(n - 1) - Sum[n^i*m^i/i!, {i, 0, n - 1}]*(m - 1)*Gamma[n])]

EXAMPLE

1},

{1, 1},

{2, 2, 3},

{6, 9, 22, 41},

{24, 64, 266, 708, 1486},

{120, 625, 4536, 17457, 48088, 108129},

{720, 7776, 100392, 563088, 2043864, 5709120, 13399176}

MATHEMATICA

Clear[t] (* Erlang C type triangular sequence based on A122525 *) t[n_, m_] := If[m == 0, n!, (m^n*n^(n - 1) - Sum[n^i*m^i/i!, {i, 0, n - 1}]*(m - 1)*Gamma[n])]; a = Table[Table[t[n, m], {m, 0, n}], {n, 0, 10}]; Flatten[a]

CROSSREFS

Cf. A122525.

Sequence in context: A163493 A321405 A054200 * A070550 A298179 A185084

Adjacent sequences:  A137213 A137214 A137215 * A137217 A137218 A137219

KEYWORD

nonn,uned

AUTHOR

Roger L. Bagula, Mar 06 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 March 30 16:16 EDT 2020. Contains 333127 sequences. (Running on oeis4.)