The OEIS is supported by the many generous donors to the OEIS Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A153289 A triangular sequence designed with row sums near 3^n: t(n,m)=If[m == 0 || m == n, Floor[3^n/2^n], Floor[(3^n/2^n)*Binomial[n, m]] + 1]. 0
 1, 1, 1, 2, 5, 2, 3, 11, 11, 3, 5, 21, 31, 21, 5, 7, 38, 76, 76, 38, 7, 11, 69, 171, 228, 171, 69, 11, 17, 120, 359, 599, 599, 359, 120, 17, 25, 206, 718, 1436, 1795, 1436, 718, 206, 25, 38, 346, 1384, 3230, 4844, 4844, 3230, 1384, 346, 38, 57, 577, 2595, 6920, 12110 (list; table; graph; refs; listen; history; text; internal format)
 OFFSET 0,4 COMMENTS Row sums are: {1, 2, 7, 24, 78, 242, 745, 2248, 6734, 20114, 60081,...}. LINKS Table of n, a(n) for n=0..59. FORMULA t(n,m)=If[m == 0 || m == n, Floor[3^n/2^n], Floor[(3^n/2^n)*Binomial[n, m]] + 1]. EXAMPLE {1}, {1, 1}, {2, 5, 2}, {3, 11, 11, 3}, {5, 21, 31, 21, 5}, {7, 38, 76, 76, 38, 7}, {11, 69, 171, 228, 171, 69, 11}, {17, 120, 359, 599, 599, 359, 120, 17}, {25, 206, 718, 1436, 1795, 1436, 718, 206, 25}, {38, 346, 1384, 3230, 4844, 4844, 3230, 1384, 346, 38}, {57, 577, 2595, 6920, 12110, 14532, 12110, 6920, 2595, 577, 57} MATHEMATICA Clear[t, n, m]; t[n_, m_] = If[ m == 0 || m == n, Floor[3^n/2^n], Floor[(3^n/2^n)*Binomial[n, m]] + 1]; Table[Table[t[n, m], {m, 0, n}], {n, 0, 10}]; Flatten[%] CROSSREFS Sequence in context: A197180 A129396 A274602 * A161643 A196982 A197167 Adjacent sequences: A153286 A153287 A153288 * A153290 A153291 A153292 KEYWORD nonn,tabl AUTHOR Roger L. Bagula, Dec 23 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 | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified September 7 22:13 EDT 2024. Contains 375749 sequences. (Running on oeis4.)