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!)
 A144484 Triangle read by rows: T(n, k) = binomial(3*n+1-k, n-k) for n, k >= 0. 1
 1, 4, 1, 21, 6, 1, 120, 36, 8, 1, 715, 220, 55, 10, 1, 4368, 1365, 364, 78, 12, 1, 27132, 8568, 2380, 560, 105, 14, 1, 170544, 54264, 15504, 3876, 816, 136, 16, 1, 1081575, 346104, 100947, 26334, 5985, 1140, 171, 18, 1, 6906900, 2220075, 657800, 177100 (list; table; graph; refs; listen; history; text; internal format)
 OFFSET 0,2 COMMENTS Previous name: A triangle sequence from a polynomial: p(x,n)=Sum[Binomial[3*n + 1 - m, n - m]*x^m, {m, 0, n}]; p(x,n)=Gamma[2*n+3]*Hypergeometric2F1[1,-n-1-3*n,x]/(Gamma[1+n]*Gamma[2+2*n}). REFERENCES M. Jones, Further remarks on the enumeration of graphs, preprint, 2001. LINKS Omer Egecioglu, Timothy Redmond, Charles Ryavec, Almost Product Evaluation of Hankel Determinants, arXiv:0704.3398 [math.CO], 2007. FORMULA p(x,n)=Sum[Binomial[3*n + 1 - m, n - m]*x^m, {m, 0, n}]; p(x,n)=Gamma[2*n+3]*Hypergeometric2F1[1,-n-1-3*n,x]/(Gamma[1+n]*Gamma[2+2*n}); EXAMPLE {1}, {4, 1}, {21, 6, 1}, {120, 36, 8, 1}, {715, 220, 55, 10, 1}, {4368, 1365, 364, 78, 12, 1}, {27132, 8568, 2380, 560, 105, 14, 1}, {170544, 54264, 15504, 3876, 816, 136, 16, 1}, {1081575, 346104, 100947, 26334, 5985, 1140, 171, 18, 1}, {6906900, 2220075, 657800, 177100, 42504, 8855, 1540, 210, 20, 1}, {44352165, 14307150, 4292145, 1184040, 296010, 65780, 12650, 2024, 253, 22, 1} MATHEMATICA p[x_, n_] = Sum[Binomial[3*n + 1 - m, n - m]*x^m, {m, 0, n}]; Table[CoefficientList[p[x, n], x], {n, 0, 10}]; Flatten[%] PROG (PARI) T(n, k) = binomial(3*n+1-k, n-k); tabl(nn) = for (n=0, nn, for (k=0, n, print1(T(n, k), ", ")); print); \\ Michel Marcus, May 13 2018 CROSSREFS Cf. A025174 (row sums). Sequence in context: A322218 A182867 A182826 * A121336 A126457 A159841 Adjacent sequences:  A144481 A144482 A144483 * A144485 A144486 A144487 KEYWORD nonn,tabl AUTHOR Roger L. Bagula, Oct 12 2008 EXTENSIONS New name from Michel Marcus, May 13 2018 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 June 24 18:30 EDT 2021. Contains 345419 sequences. (Running on oeis4.)