|
|
A223170
|
|
Triangle S(n,k) by rows: coefficients of 4^((n-1)/2)*(x^(1/4)*d/dx)^n when n is odd, and of 4^(n/2)*(x^(3/4)*d/dx)^n when n is even.
|
|
2
|
|
|
1, 1, 4, 5, 4, 5, 40, 16, 45, 72, 16, 45, 540, 432, 64, 585, 1404, 624, 64, 585, 9360, 11232, 3328, 256, 9945, 31824, 21216, 4352, 256, 9945, 198900, 318240, 141440, 21760, 1024, 208845, 835380, 742560, 228480, 26880, 1024, 208845, 5012280, 10024560, 5940480, 1370880, 129024, 4096
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,3
|
|
LINKS
|
|
|
EXAMPLE
|
Triangle begins:
1;
1, 4;
5, 4;
5, 40, 16;
45, 72, 16;
45, 540, 432, 64;
585, 1404, 624, 64;
585, 9360, 11232, 3328, 256;
9945, 31824, 21216, 4352, 256;
9945, 198900, 318240, 141440, 21760, 1024;
208845, 835380, 742560, 228480, 26880, 1024;
208845, 5012280, 10024560, 5940480, 1370880, 129024, 4096;
|
|
MAPLE
|
a[0]:= f(x):
for i from 1 to 13 do
a[i] := simplify(4^((i+1)mod 2)*x^((2((i+1)mod 2)+1)/4)*(diff(a[i-1], x$1 )));
end do;
|
|
MATHEMATICA
|
nmax = 12;
b[0] = Exp[x]; For[ i = 1 , i <= nmax , i++, b[i] = 4^Mod[i + 1, 2]*x^((2 Mod[i + 1, 2] + 1)/4)*D[b[i - 1], x]] // Simplify;
row[1] = {1}; row[n_] := List @@ Expand[b[n]/f[x]] /. x -> 1;
|
|
CROSSREFS
|
Cf. A223168-A223172, A223523-A223532, A008277, A019538, A035342, A035469, A049029, A049385, A092082, A132056, A223511-A223522.
|
|
KEYWORD
|
nonn,tabf
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|