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

 

Logo


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 | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified June 14 19:28 EDT 2021. Contains 345038 sequences. (Running on oeis4.)