A055733 -id:A055733 - cp's OEIS frontend

A245397 A(n,k) is the sum of k-th powers of coefficients in full expansion of (z_1+z_2+...+z_n)^n; square array A(n,k), n>=0, k>=0, read by antidiagonals.

1, 1, 1, 1, 1, 3, 1, 1, 4, 10, 1, 1, 6, 27, 35, 1, 1, 10, 93, 256, 126, 1, 1, 18, 381, 2716, 3125, 462, 1, 1, 34, 1785, 36628, 127905, 46656, 1716, 1, 1, 66, 9237, 591460, 7120505, 8848236, 823543, 6435, 1, 1, 130, 51033, 11007556, 495872505, 2443835736, 844691407, 16777216, 24310

Offset: 0

Alois P. Heinz, Jul 21 2014

			A(3,2) = 93: (z1+z2+z3)^3 = z1^3 +3*z1^2*z2 +3*z1^2*z3 +3*z1*z2^2 +6*z1*z2*z3 +3*z1*z3^2 +z2^3 +3*z2^2*z3 +3*z2*z3^2 +z3^3 => 1^2+3^2+3^2+3^2+6^2+3^2+1^2+3^2+3^2+1^2 = 93.
Square array A(n,k) begins:
0 :    1,    1,      1,       1,         1,           1, ...
1 :    1,    1,      1,       1,         1,           1, ...
2 :    3,    4,      6,      10,        18,          34, ...
3 :   10,   27,     93,     381,      1785,        9237, ...
4 :   35,  256,   2716,   36628,    591460,    11007556, ...
5 :  126, 3125, 127905, 7120505, 495872505, 41262262505, ...

Alois P. Heinz, Antidiagonals n = 0..50, flattened

Columns k=0-10 give: A001700(n-1) for n>0, A000312, A033935, A055733, A055740, A246240, A246241, A246242, A246243, A246244, A246245.
Rows n=0+1, 2 give: A000012, A052548.
Main diagonal gives A245398.

b:= proc(n, i, k) option remember; `if`(n=0 or i=1, 1,
      add(b(n-j, i-1, k)*binomial(n, j)^k, j=0..n))
    end:
A:= (n, k)-> b(n$2, k):
seq(seq(A(n, d-n), n=0..d), d=0..10);

b[n_, i_, k_] := b[n, i, k] = If[n == 0, 1, If[i<1, 0, Sum[b[n-j, i-1, k] * Binomial[n, j]^(k-1)/j!, {j, 0, n}]]]; A[n_, k_] := n!*b[n, n, k]; Table[ Table[A[n, d-n], {n, 0, d}], {d, 0, 10}] // Flatten (* Jean-François Alcover, Jan 30 2015, after Alois P. Heinz *)

A(n,k) = [x^n] (n!)^k * (Sum_{j=0..n} x^j/(j!)^k)^n.

A287698 Square array A(n,k) = (n!)^3 [x^n] hypergeom([], [1, 1], z)^k read by antidiagonals.

Original entry on oeis.org

1, 1, 0, 1, 1, 0, 1, 2, 1, 0, 1, 3, 10, 1, 0, 1, 4, 27, 56, 1, 0, 1, 5, 52, 381, 346, 1, 0, 1, 6, 85, 1192, 6219, 2252, 1, 0, 1, 7, 126, 2705, 36628, 111753, 15184, 1, 0, 1, 8, 175, 5136, 124405, 1297504, 2151549, 104960, 1, 0

Offset: 0

Peter Luschny, May 30 2017

Let A_m(n,k) = (n!)^m [x^n] hypergeom([], [1,…,1], z)^k where [1,…,1] lists (m-1) times 1. These arrays can be seen as generalizations of the power functions n^k. For m = 1 -> A003992, m = 2 -> A287316, m = 3 -> A287698.
A_m(n,n) is the sum of m-th powers of coefficients in the full expansion of (z_1+z_2+...+z_n)^n (compare A245397).
A287696 provide polynomials and A287697 rational functions generating the columns of the array.

			Array starts:
k\n| 0  1    2       3       4         5           6             7
---|-------------------------------------------------------------------
k=0| 1, 0,   0,      0,      0,        0,          0,            0, ... A000007
k=1| 1, 1,   1,      1,      1,        1,          1,            1, ... A000012
k=2| 1, 2,  10,     56,    346,     2252,      15184,       104960, ... A000172
k=3| 1, 3,  27,    381,   6219,   111753,    2151549,     43497891, ... A141057
k=4| 1, 4,  52,   1192,  36628,  1297504,   50419096,   2099649808, ... A287699
k=5| 1, 5,  85,   2705, 124405,  7120505,  464011825,  33031599725, ...
k=6| 1, 6, 126,   5136, 316206, 25461756, 2443835736, 263581282656, ...
       A001107,A287702,A287700,  A287701,                               A055733

Rows: A000007 (k=0), A000012 (k=1), A000172 (k=2), A141057 (k=3), A287699 (k=4).
Columns: A000172 (n=1), A001477(n=1), A001107 (n=2), A287702 (n=3), A287700 (n=4), A287701 (n=5).
Cf. A055733 (diagonal), A287696, A287697, A003992, A287316, A245397.

A287698_row := (k, len) -> seq(A287696_poly(j)(k), j=0..len):
A287698_row := proc(k, len) hypergeom([], [1, 1], x):
series(%^k, x, len); seq((i!)^3*coeff(%, x, i), i=0..len-1) end:
for k from 0 to 6 do A287698_row(k, 9) od;
A287698_col := proc(n, len) local k, x; hypergeom([], [1, 1], z);
series(%^x, z=0, n+1): unapply(n!^3*coeff(%, z, n), x); seq(%(j), j=0..len) end:
for n from 0 to 7 do A287698_col(n, 9) od;

Table[Table[SeriesCoefficient[HypergeometricPFQ[{},{1,1},x]^k, {x, 0, n}] (n!)^3, {n, 0, 6}], {k, 0, 9}] (* as a table of rows *)

cp's OEIS Frontend

A245397 A(n,k) is the sum of k-th powers of coefficients in full expansion of (z_1+z_2+...+z_n)^n; square array A(n,k), n>=0, k>=0, read by antidiagonals.

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Maple

Mathematica

Formula