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!)
 A173152 Triangle T(n,m) read by rows: T(n,0)=T(n,n)=1, else T(n,m)= binomial(n,m) + 2^(2*n-3) *binomial(n-2,m-1). 0
 1, 1, 1, 1, 4, 1, 1, 11, 11, 1, 1, 36, 70, 36, 1, 1, 133, 394, 394, 133, 1, 1, 518, 2063, 3092, 2063, 518, 1, 1, 2055, 10261, 20515, 20515, 10261, 2055, 1, 1, 8200, 49180, 122936, 163910, 122936, 49180, 8200, 1, 1, 32777, 229412, 688212, 1147006, 1147006 (list; table; graph; refs; listen; history; text; internal format)
 OFFSET 0,5 COMMENTS Row sums are 1, 2, 6, 24, 144, 1056, 8256, 65664, 524544, 4194816, 3355545,... LINKS EXAMPLE 1; 1, 1; 1, 4, 1; 1, 11, 11, 1; 1, 36, 70, 36, 1; 1, 133, 394, 394, 133, 1; 1, 518, 2063, 3092, 2063, 518, 1; 1, 2055, 10261, 20515, 20515, 10261, 2055, 1; 1, 8200, 49180, 122936, 163910, 122936, 49180, 8200, 1; 1, 32777, 229412, 688212, 1147006, 1147006, 688212, 229412, 32777, 1; 1, 131082, 1048621, 3670136, 7340242, 9175292, 7340242, 3670136, 1048621, 131082, 1; MATHEMATICA t[n_, m_, q_] := If[m == 0 || m == n, 1, Binomial[n, m] + q^(2*n - 3)*Binomial[n - 2, m - 1]]; Table[Table[Table[t[n, m, q], {m, 0, n}], {n, 0, 10}], {q, 1, 10}]; Table[Flatten[Table[Table[t[n, m, q], {m, 0, n}], {n, 0, 10}]], {q, 1, 10}] CROSSREFS cf. A008292 Sequence in context: A174036 A157221 A146967 * A156049 A192015 A205946 Adjacent sequences:  A173149 A173150 A173151 * A173153 A173154 A173155 KEYWORD nonn,tabl AUTHOR Roger L. Bagula, Feb 11 2010 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 August 10 04:38 EDT 2020. Contains 336368 sequences. (Running on oeis4.)