A223168
Triangle S(n, k) by rows: coefficients of 2^((n-1)/2)*(x^(1/2)*d/dx)^n when n is odd, and of 2^(n/2)*(x^(1/2)*d/dx)^n when n is even.
Original entry on oeis.org
1, 1, 2, 3, 2, 3, 12, 4, 15, 20, 4, 15, 90, 60, 8, 105, 210, 84, 8, 105, 840, 840, 224, 16, 945, 2520, 1512, 288, 16, 945, 9450, 12600, 5040, 720, 32, 10395, 34650, 27720, 7920, 880, 32, 10395, 124740, 207900, 110880, 23760, 2112, 64, 135135, 540540, 540540, 205920, 34320, 2496, 64
Offset: 0
Triangle begins:
1;
1, 2;
3, 2;
3, 12, 4;
15, 20, 4;
15, 90, 60, 8;
105, 210, 84, 8;
105, 840, 840, 224, 16;
945, 2520, 1512, 288, 16;
945, 9450, 12600, 5040, 720, 32;
10395, 34650, 27720, 7920, 880, 32;
10395, 124740, 207900, 110880, 23760, 2112, 64;
135135, 540540, 540540, 205920, 34320, 2496, 64;
.
Expansion takes the form:
2^0 (x^(1/2)*d/dx)^1 = 1*x^(1/2)*d/dx.
2^1 (x^(1/2)*d/dx)^2 = 1*d/dx + 2*x*d^2/dx^2.
2^1 (x^(1/2)*d/dx)^3 = 3*x^(1/2)*d^2/dx^2 + 2*x^(3/2)*d^3/dx^3.
2^2 (x^(1/2)*d/dx)^4 = 3*d^2/dx^2 + 12*x*d^3/dx^3 + 4*x^2*d^4/dx^4.
2^2 (x^(1/2)*d/dx)^5 = 15*x^(1/2)*d^3/dx^3 + 20*x^(3/2)*d^4/dx^4 + 4*x^(5/2)*d^5/dx^5.
`
`
Odd rows includes absolute values of
A098503 from right to left.
Cf.
A223169-
A223172,
A223523-
A223532,
A008277,
A019538,
A035342,
A035469,
A049029,
A049385,
A092082,
A132056,
A223511-
A223522.
-
a[0]:= f(x);
for i from 1 to 13 do
a[i]:= simplify(2^((i+1)mod 2)*x^(1/2)*(diff(a[i-1],x$1)));
end do;
-
Flatten[CoefficientList[Expand[FullSimplify[Table[D[E^(n*x^2),{x,k}]/(E^(n*x^2)*(2*n)^Floor[(k+1)/2]),{k,1,13}]]]/.x->1,n]] (* Vaclav Kotesovec, Jul 16 2013 *)
A223172
Triangle S(n,k) by rows: coefficients of 6^((n-1)/2)*(x^(1/6)*d/dx)^n when n is odd, and of 6^(n/2)*(x^(5/6)*d/dx)^n when n is even.
Original entry on oeis.org
1, 1, 6, 7, 6, 7, 84, 36, 91, 156, 36, 91, 1638, 1404, 216, 1729, 4446, 2052, 216, 1729, 41496, 53352, 16416, 1296, 43225, 148200, 102600, 21600, 1296, 43225, 1296750, 2223000, 1026000, 162000, 7776, 1339975, 5742750, 5301000, 1674000, 200880, 7776
Offset: 0
Triangle begins:
1;
1, 6;
7, 6;
7, 84, 36;
91, 156, 36;
91, 1638, 1404, 216;
1729, 4446, 2052, 216;
1729, 41496, 53352, 16416, 1296;
43225, 148200, 102600, 21600, 1296;
43225, 1296750, 2223000, 1026000, 162000, 7776;
1339975, 5742750, 5301000, 1674000, 200880, 7776;
1339975, 48239100, 103369500, 63612000, 15066000, 1446336, 46656;
Cf.
A223168-
A223172,
A223523-
A223532,
A008277,
A019538,
A035342,
A035469,
A049029,
A049385,
A092082,
A132056,
A223511-
A223522.
A092082
Triangle of numbers related to triangle A092083; generalization of Stirling numbers of second kind A008277, Lah-numbers A008297, ...
Original entry on oeis.org
1, 7, 1, 91, 21, 1, 1729, 511, 42, 1, 43225, 15015, 1645, 70, 1, 1339975, 523705, 69300, 4025, 105, 1, 49579075, 21240765, 3226405, 230300, 8330, 147, 1, 2131900225, 984172735, 166428990, 13820205, 621810, 15386, 196, 1, 104463111025
Offset: 1
{1}; {7,1}; {91,21,1}; {1729,511,42,1}; ...
- F. Bergeron, Ph. Flajolet and B. Salvy, Varieties of Increasing Trees, in Lecture Notes in Computer Science vol. 581, (1992), pp. 24-48.
- P. Blasiak, K. A. Penson and A. I. Solomon, The general boson normal ordering problem., arXiv:quant-phys/0402027, 2004.
- P. Blasiak, K. A. Penson and A. I. Solomon, The general boson normal ordering problem, Phys. Lett. A 309 (2003) 198-205.
- M. Janjic, Some classes of numbers and derivatives, JIS 12 (2009) 09.8.3
- W. Lang, First 10 rows.
- W. Lang, On generalizations of Stirling number triangles, J. Integer Seqs., Vol. 3 (2000), #00.2.4.
- Shi-Mei Ma, Some combinatorial sequences associated with context-free grammars, arXiv:1208.3104v2 [math.CO], 2012. - From N. J. A. Sloane, Aug 21 2012
-
# The function BellMatrix is defined in A264428.
# Adds (1, 0, 0, 0, ..) as column 0.
BellMatrix(n -> mul(6*k+1, k=0..n), 9); # Peter Luschny, Jan 26 2016
-
mmax = 9; a[n_, m_] := n!*Coefficient[Series[((-1 + (1 - 6*x)^(-1/6))^m)/m!, {x, 0, mmax}], x^n];
Flatten[Table[a[n, m], {n, 1, mmax}, {m, 1, n}]][[1 ;; 37]] (* Jean-François Alcover, Jun 22 2011, after e.g.f. *)
rows = 9;
t = Table[Product[6k+1, {k, 0, n}], {n, 0, rows}];
T[n_, k_] := BellY[n, k, t];
Table[T[n, k], {n, 1, rows}, {k, 1, n}] // Flatten (* Jean-François Alcover, Jun 22 2018, after Peter Luschny *)
A132056
Triangle read by rows, the Bell transform of Product_{k=0..n} 7*k+1 without column 0.
Original entry on oeis.org
1, 8, 1, 120, 24, 1, 2640, 672, 48, 1, 76560, 22800, 2160, 80, 1, 2756160, 920160, 104880, 5280, 120, 1, 118514880, 43243200, 5639760, 347760, 10920, 168, 1, 5925744000, 2323918080, 336510720, 24071040, 937440, 20160, 224, 1
Offset: 1
{1}; {8,1}; {120,24,1}; {2640,672,48,1}; ...
- F. Bergeron, Ph. Flajolet and B. Salvy, Varieties of Increasing Trees, Lecture Notes in Computer Science vol. 581, ed. J.-C. Raoult, Springer 1992, pp. 24-48.
- P. Blasiak, K. A. Penson and A. I. Solomon, The general boson normal ordering problem, Phys. Lett. A 309 (2003) 198-205.
- P. Blasiak, K. A. Penson and A. I. Solomon, The general boson normal ordering problem, arXiv:quant-ph/0402027, 2004.
- W. Lang, On generalizations of Stirling number triangles, J. Integer Seqs., Vol. 3 (2000), #00.2.4.
- M. Janjic, Some classes of numbers and derivatives, JIS 12 (2009) 09.8.3
- W. Lang, First 10 rows.
-
# The function BellMatrix is defined in A264428.
# Adds (1,0,0,0, ..) as column 0.
BellMatrix(n -> mul(7*k+1, k=0..n), 8); # Peter Luschny, Jan 27 2016
-
a[n_, m_] := a[n, m] = ((m*a[n-1, m-1]*(m-1)! + (m+7*n-7)*a[n-1, m]*m!)*n!)/(n*m!*(n-1)!);
a[n_, m_] /; n < m = 0; a[_, 0] = 0; a[1, 1] = 1;
Flatten[Table[a[n, m], {n, 1, 8}, {m, 1, n}]][[1 ;; 36]]
(* Jean-François Alcover, Jun 17 2011 *)
rows = 8;
a[n_, m_] := BellY[n, m, Table[Product[7k+1, {k, 0, j}], {j, 0, rows}]];
Table[a[n, m], {n, 1, rows}, {m, 1, n}] // Flatten (* Jean-François Alcover, Jun 22 2018 *)
A223532
Triangle S(n,k) by rows: coefficients of 6^(n/2)*(x^(5/6)*d/dx)^n when n=0,2,4,6,...
Original entry on oeis.org
1, 1, 6, 7, 84, 36, 91, 1638, 1404, 216, 1729, 41496, 53352, 16416, 1296, 43225, 1296750, 2223000, 1026000, 162000, 7776, 1339975, 48239100, 103369500, 63612000, 15066000, 1446336, 46656, 49579075, 2082321150, 5354540100, 4118877000, 1300698000, 187300512
Offset: 1
Triangle begins:
1;
1, 6;
7, 84, 36;
91, 1638, 1404, 216;
1729, 41496, 53352, 16416, 1296;
43225, 1296750, 2223000, 1026000, 162000, 7776;
1339975, 48239100, 103369500, 63612000, 15066000, 1446336, 46656;
49579075, 2082321150, 5354540100, 4118877000, 1300698000, 187300512, 12083904, 279936;
Cf.
A008277,
A019538,
A035342,
A035469,
A049029,
A049385,
A092082,
A132056,
A223511-
A223522,
A223168-
A223172,
A223523-
A223532.
A223511
Triangle T(n,k) represents the coefficients of (x^9*d/dx)^n, where n=1,2,3,...;generalization of Stirling numbers of second kind A008277, Lah-numbers A008297.
Original entry on oeis.org
1, 9, 1, 153, 27, 1, 3825, 855, 54, 1, 126225, 32895, 2745, 90, 1, 5175225, 1507815, 150930, 6705, 135, 1, 253586025, 80565975, 9205245, 499590, 13860, 189, 1, 14454403425, 4926412575, 623675430, 39180645, 1345050, 25578, 252, 1
Offset: 1
1;
9,1;
153,27,1;
3825,855,54,1;
126225,32895,2745,90,1;
5175225,1507815,150930,6705,135,1;
253586025,80565975,9205245,499590,13860,189,1;
14454403425,4926412575,623675430,39180645,1345050,25578,252,1;
Cf.
A008277,
A019538,
A035342,
A035469,
A049029,
A049385,
A092082,
A132056,
A223512-
A223522,
A223168-
A223172,
A223523-
A223532.
-
b[0]:=g(x):
for j from 1 to 10 do
b[j]:=simplify(x^9*diff(b[j-1],x$1);
end do;
# The function BellMatrix is defined in A264428.
# Adds (1,0,0,0, ..) as column 0.
BellMatrix(n -> mul(8*k+1, k=0..n), 10); # Peter Luschny, Jan 29 2016
-
rows = 8;
t = Table[Product[8k+1, {k, 0, n}], {n, 0, rows}];
T[n_, k_] := BellY[n, k, t];
Table[T[n, k], {n, 1, rows}, {k, 1, n}] // Flatten (* Jean-François Alcover, Jun 22 2018, after Peter Luschny *)
A223522
Triangle T(n,k) represents the coefficients of (x^20*d/dx)^n, where n=1,2,3,...; generalization of Stirling numbers of second kind A008277, Lah-numbers A008297.
Original entry on oeis.org
1, 20, 1, 780, 60, 1, 45240, 4320, 120, 1, 3483480, 382200, 13800, 200, 1, 334414080, 40556880, 1734600, 33600, 300, 1, 38457619200, 5039012160, 243505080, 5699400, 69300, 420, 1
Offset: 1
1;
20,1;
780,60,1;
45240,4320,120,1;
3483480,382200,13800,200,1;
334414080,40556880,1734600,33600,300,1;
38457619200,5039012160,243505080,5699400,69300,420,1;
5153320972800,718724260800,38155703040,1024322880,15262800,127680,560,1;
Cf.
A008277,
A019538,
A035342,
A035469,
A049029,
A049385,
A092082,
A132056,
A223511-
A223522,
A223168-
A223172,
A223523-
A223532.
A049353
A triangle of numbers related to triangle A030526.
Original entry on oeis.org
1, 5, 1, 30, 15, 1, 210, 195, 30, 1, 1680, 2550, 675, 50, 1, 15120, 34830, 14025, 1725, 75, 1, 151200, 502740, 287280, 51975, 3675, 105, 1, 1663200, 7692300, 5961060, 1482705, 151200, 6930, 140, 1, 19958400, 124740000, 126913500, 41545980
Offset: 1
Triangle begins:
{1};
{5,1};
{30,15,1}; E.g., row polynomial E(3,x)=30*x+15*x^2+x^3.
{210,195,30,1};
...
a(4,2)= 195 =4*(5*6)+3*(5*5) from the two types of unordered 2-forests of unary increasing trees associated with the two m=2 parts partitions (1,3) and (2^2) of n=4. The first type has 4 increasing labelings, each coming in (1)*(1*5*6)=30 colored versions, e.g., ((1c1),(2c1,3c5,4c6)) with lcp for vertex label l and color p. Here the vertex labeled 3 has depth j=1, hence 5 colors, c1..c5, can be chosen and the vertex labeled 4 with j=2 can come in 6 colors, e.g., c1..c6. Therefore there are 4*((1)*(1*5*6))=120 forests of this (1,3) type. Similarly the (2,2) type yields 3*((1*5)*(1*5))=75 such forests, e.g., ((1c1,3c4)(2c1,4c5)) or ((1c1,3c5)(2c1,4c2)), etc. - _Wolfdieter Lang_, Oct 12 2007
Cf.
A134139 (alternating row sums).
-
# The function BellMatrix is defined in A264428.
# Adds (1,0,0,0, ..) as column 0.
BellMatrix(n -> (n+4)!/24, 10); # Peter Luschny, Jan 28 2016
-
a[n_, m_] /; n >= m >= 1 := a[n, m] = (4m + n - 1)*a[n-1, m] + a[n-1, m-1]; a[n_, m_] /; n < m = 0; a[, 0] = 0; a[1, 1] = 1; Flatten[Table[a[n, m], {n, 1, 9}, {m, 1, n}]] (* _Jean-François Alcover, Jul 22 2011 *)
BellMatrix[f_Function, len_] := With[{t = Array[f, len, 0]}, Table[BellY[n, k, t], {n, 0, len-1}, {k, 0, len-1}]];
rows = 10;
M = BellMatrix[(#+4)!/24&, rows];
Table[M[[n, k]], {n, 2, rows}, {k, 2, n}] // Flatten (* Jean-François Alcover, Jun 23 2018, after Peter Luschny *)
-
a(n,k):=(n!*sum((-1)^(k-j)*binomial(k,j)*binomial(n+4*j-1,4*j-1),j,1,k))/(4^k*k!); /* Vladimir Kruchinin, Apr 01 2011 */
A157397
A partition product of Stirling_2 type [parameter k = -5] with biggest-part statistic (triangle read by rows).
Original entry on oeis.org
1, 1, 5, 1, 15, 45, 1, 105, 180, 585, 1, 425, 2700, 2925, 9945, 1, 3075, 34650, 52650, 59670, 208845, 1, 15855, 308700, 1248975, 1253070, 1461915, 5221125, 1, 123515, 4475520, 23689575, 33972120, 35085960, 41769000
Offset: 1
A134275
Triangle of numbers obtained from the partition array A134274.
Original entry on oeis.org
1, 5, 1, 45, 5, 1, 585, 70, 5, 1, 9945, 810, 70, 5, 1, 208845, 14895, 935, 70, 5, 1, 5221125, 284895, 16020, 935, 70, 5, 1, 151412625, 7055100, 309645, 16645, 935, 70, 5, 1, 4996616625, 192734100, 7526475, 315270, 16645, 935, 70, 5, 1, 184874815125
Offset: 1
Triangle begins:
[1];
[5,1];
[45,5,1];
[585,70,5,1];
[9945,810,70,5,1];
...
Previous
Showing 11-20 of 42 results.
Next
Comments