This site is supported by donations to The OEIS Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A153592 Triangle read by rows: T(n,k) = T(n-1,k-1) +T(n-1,k) +n*(n-1)*T(n-2,k-1) for n>4 and 1<=k<=n. 0
 2, 3, 3, 2, 20, 2, 2, 58, 58, 2, 2, 100, 516, 100, 2, 2, 162, 2356, 2356, 162, 2, 2, 248, 6718, 26384, 6718, 248, 2, 2, 362, 16038, 165038, 165038, 16038, 362, 2, 2, 508, 34256, 664772, 2229724, 664772, 34256, 508, 2, 2, 690, 67344, 2142448, 17747916 (list; table; graph; refs; listen; history; text; internal format)
 OFFSET 1,1 LINKS FORMULA T(1,1)=2. T(2,k)=3. T(3,1) = T(3,3) =T(4,1)= T(4,4)= 2. T(3,2)=20. T(4,2)=T(4,3)=58. Otherwise T(n,k) = T(n-1,k-1) +T(n-1,k) + n*(n-1)*T(n-2,k-1). EXAMPLE 2; 3,3; 2,20,2; 2,58,58,2; 2,100,516,100,2; 2,162,2356,2356,162,2; 2,248,6718,26384,6718,248,2; 2,362,16038,165038,165038,16038,362,2; 2,508,34256,664772,2229724,664772,34256,508,2; 2,690,67344,2142448,17747916,17747916,2142448,67344,690,2; MATHEMATICA Clear[A]; A[2, 1] := A[2, 2] = 3; A[3, 2] = 20; A[4, 2] = 58; A[4, 3] = 58; A[n_, 1] := 2; A[n_, n_] := 2; A[n_, k_] := A[n - 1, k - 1] + A[n - 1, k] + n*(n - 1)*A[n - 2, k - 1]; a = Table[A[n, k], {n, 10}, {k, n}]; Flatten[a] Table[Apply[Plus, a[[n]]], {n, 1, 10}]; Table[Apply[Plus, a[[n]]]/(n + 1)!, {n, 1, 10}]; CROSSREFS Cf. A000142 (row sums). Sequence in context: A153310 A155688 A215490 * A153878 A118925 A308100 Adjacent sequences:  A153589 A153590 A153591 * A153593 A153594 A153595 KEYWORD nonn,tabl AUTHOR Roger L. Bagula and Gary W. Adamson, Dec 29 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 July 17 09:23 EDT 2019. Contains 325100 sequences. (Running on oeis4.)