A108397 -id:A108397 - cp's OEIS frontend

A108396 Triangle read by rows: T(n,k) = n*(1+n^k)/2, 0<=k<=n.

0, 1, 1, 2, 3, 5, 3, 6, 15, 42, 4, 10, 34, 130, 514, 5, 15, 65, 315, 1565, 7815, 6, 21, 111, 651, 3891, 23331, 139971, 7, 28, 175, 1204, 8407, 58828, 411775, 2882404, 8, 36, 260, 2052, 16388, 131076, 1048580, 8388612, 67108868, 9, 45, 369, 3285, 29529, 265725

Offset: 0

Reinhard Zumkeller, Jun 02 2005

Row sums give A108397;
T(n,0) = A001477(n);
T(n,1) = A000217(n) for n>0;
T(n,2) = A006003(n) for n>1;
T(n,3) = A027441(n) for n>2;
T(n,4) = A021003(n) for n>3;
T(n,n) = A108398(n).

			.  0:  0
.  1:  1  1
.  2:  2  3   5
.  3:  3  6  15   42
.  4:  4 10  34  130   514
.  5:  5 15  65  315  1565   7815
.  6:  6 21 111  651  3891  23331  139971
.  7:  7 28 175 1204  8407  58828  411775  2882404
.  8:  8 36 260 2052 16388 131076 1048580  8388612  67108868
.  9:  9 45 369 3285 29529 265725 2391489 21523365 193710249 1743392205 .

Reinhard Zumkeller, Rows n = 0..124 of triangle, flattened

Cf. A079901, A000312, A033918, A001477, A000217, A006003, A027441, A021003, A108398, A108397 (row sums), A256512 (central terms).

a108396 n k = a108396_tabl !! n !! k
a108396_row n = a108396_tabl !! n
a108396_tabl = zipWith (\v ws -> map (flip div 2 . (* v) . (+ 1)) ws)
                       [0..] a079901_tabl
-- Reinhard Zumkeller, Mar 31 2015

Join[{0},Flatten[Table[n (1+n^k)/2,{n,10},{k,0,n}]]] (* Harvey P. Dale, Mar 19 2015 *)

Offset changed by Reinhard Zumkeller, Mar 31 2015

cp's OEIS Frontend

A108396 Triangle read by rows: T(n,k) = n*(1+n^k)/2, 0<=k<=n.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Haskell

Mathematica

Extensions