|
Search: id:A137216
|
|
|
| A137216 |
|
Erlang C queues type triangular sequence based on A122525. |
|
+0
1
|
|
| 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; listen)
|
|
|
OFFSET
|
1,4
|
|
|
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.
Adjacent sequences: A137213 A137214 A137215 this_sequence A137217 A137218 A137219
Sequence in context: A019465 A077074 A054200 this_sequence A070550 A145778 A102762
|
|
KEYWORD
|
nonn,uned
|
|
AUTHOR
|
Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Mar 06 2008
|
|
|
Search completed in 0.002 seconds
|
