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!)
 A153479 Recursive triangular symmetrical sequence: A(n,k) := (n - k + 1)A(n - 1, k - 1) + (k)* A(n - 1, k) - (n + 1)*A(n - 2, k - 1). 0
 2, 3, 3, 2, 14, 2, 2, 25, 25, 2, 2, 46, 66, 46, 2, 2, 88, 207, 207, 88, 2, 2, 172, 693, 1128, 693, 172, 2, 2, 340, 2319, 6114, 6114, 2319, 340, 2, 2, 676, 7617, 31440, 49860, 31440, 7617, 676, 2, 2, 1348, 24519, 153570, 370686, 370686, 153570, 24519, 1348, 2 (list; table; graph; refs; listen; history; text; internal format)
 OFFSET 0,1 COMMENTS Row sums are: {2, 6, 18, 54, 162, 594, 2862, 17550, 129330, 1100250,...} LINKS FORMULA A(n,k) := (n - k + 1)A(n - 1, k - 1) + (k)* A(n - 1, k) - (n + 1)*A(n - 2, k - 1). EXAMPLE {2}, {3, 3}, {2, 14, 2}, {2, 25, 25, 2}, {2, 46, 66, 46, 2}, {2, 88, 207, 207, 88, 2}, {2, 172, 693, 1128, 693, 172, 2}, {2, 340, 2319, 6114, 6114, 2319, 340, 2}, {2, 676, 7617, 31440, 49860, 31440, 7617, 676, 2}, {2, 1348, 24519, 153570, 370686, 370686, 153570, 24519, 1348, 2} MATHEMATICA Clear[t, n, m, A]; A[2, 1] := A[2, 2] = 3; A[3, 2] = 14; A[4, 2] = 25; A[4, 3] = 25; A[n_, 1] := 2; A[n_, n_] := 2 A[n_, k_] := (n - k + 1)A[n - 1, k - 1] + (k)* A[n - 1, k] - (n + 1)*A[n - 2, k - 1]; Table[Table[A[n, m], {m, 1, n}], {n, 1, 10}] Flatten[%] CROSSREFS Sequence in context: A153312 A153283 A153288 * A153489 A153310 A155688 Adjacent sequences:  A153476 A153477 A153478 * A153480 A153481 A153482 KEYWORD nonn,uned,tabl AUTHOR Roger L. Bagula, Dec 27 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 May 16 18:13 EDT 2021. Contains 343949 sequences. (Running on oeis4.)