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

 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 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.

Last modified March 30 16:16 EDT 2020. Contains 333127 sequences. (Running on oeis4.)