|
| |
|
|
A156861
|
|
Triangle read by rows: t(n,k)=2^k - Binomial[n, k + 1].
|
|
0
| |
|
|
1, 0, 2, -1, 1, 4, -2, -1, 3, 8, -3, -4, 0, 7, 16, -4, -8, -6, 3, 15, 32, -5, -13, -16, -7, 10, 31, 64, -6, -19, -31, -27, -5, 25, 63, 128, -7, -26, -52, -62, -40, 4, 56, 127, 256, -8, -34, -80, -118, -110, -52, 28, 119, 255, 512, -9, -43, -116, -202, -236, -178, -56, 83
(list; table; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 0,3
|
|
|
COMMENTS
| Row sums are 2^n: {1, 2, 4, 8, 16, 32, 64, 128, 256, 512, 1024,...}
|
|
|
FORMULA
| t(n,k)=2^k - Binomial[n, k + 1].
|
|
|
EXAMPLE
| {1},
{0, 2},
{-1, 1, 4},
{-2, -1, 3, 8},
{-3, -4, 0, 7, 16},
{-4, -8, -6, 3, 15, 32},
{-5, -13, -16, -7, 10, 31, 64},
{-6, -19, -31, -27, -5, 25, 63, 128},
{-7, -26, -52, -62, -40, 4, 56, 127, 256},
{-8, -34, -80, -118, -110, -52, 28, 119, 255, 512},
{-9, -43, -116, -202, -236, -178, -56, 83, 246, 511, 1024}
|
|
|
MATHEMATICA
| t[n_, k_] = 2^k - Binomial[n, k + 1] Table[Table[t[n, k], {k, 0, n}], {n, 0, 10}] Flatten[%]
|
|
|
CROSSREFS
| Sequence in context: A111579 A144374 A144018 * A122773 A029268 A176452
Adjacent sequences: A156858 A156859 A156860 * A156862 A156863 A156864
|
|
|
KEYWORD
| sign,tabl,uned
|
|
|
AUTHOR
| Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Feb 17 2009
|
| |
|
|
