Original entry on oeis.org
1, 5, 49, 721, 14177, 349141, 10334689, 357361985, 14137664833, 629779342213, 31195027543505, 1700812505769169, 101218448336028193, 6528869281965115541, 453720852957751220353, 33796334125623555379969, 2686138908337714715560577, 226908450494953996837748869
Offset: 1
-
R:=PowerSeriesRing(Rationals(), 30); Coefficients(R!(Laplace( Exp(1-(1-5*x)^(1/5)) - 1 ))); // G. C. Greubel, Oct 02 2023
-
Rest[With[{nn=20},CoefficientList[Series[Exp[1-(1-5x)^(1/5)]-1, {x,0,nn}], x] Range[0,nn]!]] (* Harvey P. Dale, Aug 02 2016 *)
-
def A028575_list(prec):
P. = PowerSeriesRing(QQ, prec)
return P( exp(1-(1-5*x)^(1/5)) -1 ).egf_to_ogf().list()
a=A028575_list(40); a[1:] # G. C. Greubel, Oct 02 2023
A144267
Partition number array, called M32(-4), related to A011801(n,m)= |S2(-4;n,m)| ( generalized Stirling triangle).
Original entry on oeis.org
1, 4, 1, 36, 12, 1, 504, 144, 48, 24, 1, 9576, 2520, 1440, 360, 240, 40, 1, 229824, 57456, 30240, 12960, 7560, 8640, 960, 720, 720, 60, 1, 6664896, 1608768, 804384, 635040, 201096, 211680, 90720, 60480, 17640, 30240, 6720, 1260, 1680, 84, 1, 226606464, 53319168
Offset: 1
a(4,3)=48. The relevant partition of 4 is (2^2). The 48 unordered (0,2,0,0)-forests are composed of the following 2 rooted increasing trees 1--2,3--4; 1--3,2--4 and 1--4,2--3. The trees are quaternary because r=1 vertices are quaternary (4-ary) and for the leaves (r=0) the arity does not matter. Each of the three differently labeled forests comes therefore in 4^2=16 versions due to the two quaternary root vertices.
A144284
Partition number array, called M32hat(-4)= 'M32(-4)/M3'= 'A144267/A036040', related to A011801(n,m)= |S2(-4;n,m)| (generalized Stirling triangle).
Original entry on oeis.org
1, 4, 1, 36, 4, 1, 504, 36, 16, 4, 1, 9576, 504, 144, 36, 16, 4, 1, 229824, 9576, 2016, 1296, 504, 144, 64, 36, 16, 4, 1, 6664896, 229824, 38304, 18144, 9576, 2016, 1296, 576, 504, 144, 64, 36, 16, 4, 1, 226606464, 6664896, 919296, 344736, 254016, 229824, 38304, 18144
Offset: 1
a(4,3)= 16 = |S2(-4,2,1)|^2. The relevant partition of 4 is (2^2).
A144341
Partition number array, called M32hat(-5)= 'M32(-5)/M3'= 'A144268/A036040', related to A011801(n,m)= |S2(-4;n,m)| (generalized Stirling triangle).
Original entry on oeis.org
1, 5, 1, 55, 5, 1, 935, 55, 25, 5, 1, 21505, 935, 275, 55, 25, 5, 1, 623645, 21505, 4675, 3025, 935, 275, 125, 55, 25, 5, 1, 21827575, 623645, 107525, 51425, 21505, 4675, 3025, 1375, 935, 275, 125, 55, 25, 5, 1, 894930575, 21827575, 3118225, 1182775, 874225, 623645
Offset: 1
a(4,3)= 25 = |S2(-5,2,1)|^2. The relevant partition of 4 is (2^2).
A144347
Second column (m=2) of triangle S2p(-4) = A011801.
Original entry on oeis.org
1, 12, 192, 3960, 100656, 3048192, 107255232, 4302305280, 193836779136, 9693022090752, 532784148728832, 31930395433896960, 2072320885985366016, 144803002560595771392, 10838696766561262190592, 865256088684973495910400, 73383436891415208719056896
Offset: 0
A144348
Third column (m=3) of triangle S2p(-4) = A011801.
Original entry on oeis.org
1, 24, 600, 17160, 563976, 21095424, 887785920, 41589313920, 2148534533376, 121416817826304, 7453542764828160, 494050046853242880, 35173674025152638976, 2677307532371585777664, 216991376759173367070720, 18658548982937189595709440, 1696677198406950703545778176
Offset: 0
A105278
Triangle read by rows: T(n,k) = binomial(n,k)*(n-1)!/(k-1)!.
Original entry on oeis.org
1, 2, 1, 6, 6, 1, 24, 36, 12, 1, 120, 240, 120, 20, 1, 720, 1800, 1200, 300, 30, 1, 5040, 15120, 12600, 4200, 630, 42, 1, 40320, 141120, 141120, 58800, 11760, 1176, 56, 1, 362880, 1451520, 1693440, 846720, 211680, 28224, 2016, 72, 1, 3628800, 16329600
Offset: 1
T(1,1) = C(1,1)*0!/0! = 1,
T(2,1) = C(2,1)*1!/0! = 2,
T(2,2) = C(2,2)*1!/1! = 1,
T(3,1) = C(3,1)*2!/0! = 6,
T(3,2) = C(3,2)*2!/1! = 6,
T(3,3) = C(3,3)*2!/2! = 1,
Sheffer a-sequence recurrence: T(6,2)= 1800 = (6/3)*120 + 6*240.
B(n,k) =
1/(1-x)^2;
2/(1-x)^3, 1/(1-x)^4;
6/(1-x)^4, 6/(1-x)^5, 1/(1-x)^6;
24/(1-x)^5, 36/(1-x)^6, 12/(1-x)^7, 1/(1-x)^8;
The triangle T(n,k) begins:
n\k 1 2 3 4 5 6 7 8 9 ...
1: 1
2: 2 1
3: 6 6 1
4: 24 36 12 1
5: 120 240 120 20 1
6: 720 1800 1200 300 30 1
7: 5040 15120 12600 4200 630 42 1
8: 40320 141120 141120 58800 11760 1176 56 1
9: 362880 1451520 1693440 846720 211680 28224 2016 72 1
...
Row n=10: [3628800, 16329600, 21772800, 12700800, 3810240, 635040, 60480, 3240, 90, 1]. - _Wolfdieter Lang_, Feb 01 2013
From _Peter Bala_, Feb 24 2025: (Start)
The array factorizes as an infinite product (read from right to left):
/ 1 \ /1 \^m /1 \^m /1 \^m
| 2 1 | | 0 1 | |0 1 | |1 1 |
| 6 6 1 | = ...| 0 0 1 | |0 1 1 | |0 2 1 |
| 24 36 12 1 | | 0 0 1 1 | |0 0 2 1 | |0 0 3 1 |
|120 240 120 20 1| | 0 0 0 2 1| |0 0 0 3 1| |0 0 0 4 1|
|... | |... | |... | |... |
where m = 2. Cf. A008277 (m = 1), A035342 (m = 3), A035469 (m = 4), A049029 (m = 5) A049385 (m = 6), A092082 (m = 7), A132056 (m = 8), A223511 - A223522 (m = 9 through 20), A001497 (m = -1), A004747 (m = -2), A000369 (m = -3), A011801 (m = -4), A013988 (m = -5). (End)
- Reinhard Zumkeller, Rows n = 1..100 of triangle, flattened
- Peter Bala, Factorising (r,b)-Stirling arrays
- J. Fernando Barbero G., Jesús Salas, and Eduardo J. S. Villaseñor, Bivariate Generating Functions for a Class of Linear Recurrences. I. General Structure, arXiv:1307.2010 [math.CO], 2013.
- Paul Barry, Eulerian polynomials as moments, via exponential Riordan arrays, arXiv preprint arXiv:1105.3043 [math.CO], 2011, J. Int. Seq. 14 (2011) # 11.9.5
- Jean-Paul Blaizot and Maciej A. Nowak, Large N_c confinement and turbulence, arXiv:0801.1859 [hep-th], 2008.
- David Callan, Sets, Lists and Noncrossing Partitions, arXiv:0711.4841 [math.CO], 2007-2008.
- Pietro Codara, Ottavio M. D'Antona, and Pavol Hell, A simple combinatorial interpretation of certain generalized Bell and Stirling numbers, arXiv preprint arXiv:1308.1700 [cs.DM], 2013.
- Tom Copeland, Mathemagical Forests, Addendum to Mathemagical Forests, The Inverse Mellin Transform, Bell Polynomials, a Generalized Dobinski Relation, and the Confluent Hypergeometric Functions, A Class of Differential Operators and the Stirling Numbers
- Siad Daboul, Jan Mangaldan, Michael Z. Spivey and Peter Taylor, The Lah Numbers and the n-th Derivative of exp(1/x), Math. Mag., 86 (2013), 39-47.
- Bérénice Delcroix-Oger and Clément Dupont, Lie-operads and operadic modules from poset cohomology, arXiv:2505.06094 [math.CO], 2025. See p. 33.
- G. H. E. Duchamp et al., Feynman graphs and related Hopf algebras, J. Phys. (Conf Ser) 30 (2006) 107-118.
- Rajesh Gopakumar and David J. Gross, Mastering the master field, arXiv:hep-th/9411021, 1994.
- Gábor Hetyei, Meixner polynomials of the second kind and quantum algebras representing su(1,1), arXiv preprint arXiv:0909.4352 [math.QA], 2009, p. 4. - From _Tom Copeland_, Oct 01 2015
- Milan Janjic, Some classes of numbers and derivatives, JIS 12 (2009) 09.8.3.
- Donald E. Knuth, Convolution polynomials, The Mathematica J., 2 (1992), 67-78.
- 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
- MacTutor History of Mathematics archive: Biography of Ivo Lah.
- Robert S. Maier, Boson Operator Ordering Identities from Generalized Stirling and Eulerian Numbers, arXiv:2308.10332 [math.CO], 2023. See p. 19.
- Norihiro Nakashima and Shuhei Tsujie, Enumeration of Flats of the Extended Catalan and Shi Arrangements with Species, arXiv:1904.09748 [math.CO], 2019. See p. 18.
- Michael Penn, Lah Numbers and an appearance of exponential generating functions, YouTube video, 2025.
- Mathias Pétréolle and Alan D. Sokal, Lattice paths and branched continued fractions. II. Multivariate Lah polynomials and Lah symmetric functions, arXiv:1907.02645 [math.CO], 2019. See p. 4.
- Tilman Piesk, Illustration of the first four rows
- Kornelia Ufniarz and Grzegorz Siudem, Combinatorial origins of the canonical ensemble, arXiv:2008.00244 [math-ph], 2020. See p. 5.
- Weiping Wang and Tianming Wang, Generalized Riordan arrays, Discrete Mathematics, Vol. 308, No. 24, 6466-6500.
- Wikipedia, Lah number
Triangle of Lah numbers (
A008297) unsigned.
Cf.
A111596 (signed triangle with extra n=0 row and m=0 column).
Cf.
A130561 (for a natural refinement).
Cf.
A094638 (for differential operator representation).
Cf.
A089231 (triangle with mirrored rows).
Cf.
A271703 (triangle with extra n=0 row and m=0 column).
-
Flat(List([1..10],n->List([1..n],k->Binomial(n,k)*Factorial(n-1)/Factorial(k-1)))); # Muniru A Asiru, Jul 25 2018
-
a105278 n k = a105278_tabl !! (n-1) !! (k-1)
a105278_row n = a105278_tabl !! (n-1)
a105278_tabl = [1] : f [1] 2 where
f xs i = ys : f ys (i + 1) where
ys = zipWith (+) ([0] ++ xs) (zipWith (*) [i, i + 1 ..] (xs ++ [0]))
-- Reinhard Zumkeller, Sep 30 2014, Mar 18 2013
-
/* As triangle */ [[Binomial(n,k)*Factorial(n-1)/Factorial(k-1): k in [1..n]]: n in [1.. 15]]; // Vincenzo Librandi, Oct 31 2014
-
The triangle: for n from 1 to 13 do seq(binomial(n,k)*(n-1)!/(k-1)!,k=1..n) od;
the sequence: seq(seq(binomial(n,k)*(n-1)!/(k-1)!,k=1..n),n=1..13);
# The function BellMatrix is defined in A264428.
# Adds (1, 0, 0, 0, ...) as column 0.
BellMatrix(n -> (n+1)!, 9); # Peter Luschny, Jan 27 2016
-
nn = 9; a = x/(1 - x); f[list_] := Select[list, # > 0 &]; Flatten[Map[f, Drop[Range[0, nn]! CoefficientList[Series[Exp[y a], {x, 0, nn}], {x, y}], 1]]] (* Geoffrey Critzer, Dec 11 2011 *)
nn = 9; Flatten[Table[(j - k)! Binomial[j, k] Binomial[j - 1, k - 1], {j, nn}, {k, j}]] (* Jan Mangaldan, Mar 15 2013 *)
rows = 10;
t = Range[rows]!;
T[n_, k_] := BellY[n, k, t];
Table[T[n, k], {n, 1, rows}, {k, 1, n}] // Flatten (* Jean-François Alcover, Jun 23 2018, after Peter Luschny *)
T[n_, n_] := 1; T[n_, k_] /;0Oliver Seipel, Dec 06 2024 *)
-
use ntheory ":all"; say join ", ", map { my $n=$; map { stirling($n,$,3) } 1..$n; } 1..9; # Dana Jacobsen, Mar 16 2017
A008546
Quintuple factorial numbers: Product_{k = 0..n-1} (5*k + 4).
Original entry on oeis.org
1, 4, 36, 504, 9576, 229824, 6664896, 226606464, 8837652096, 388856692224, 19053977918976, 1028914807624704, 60705973649857536, 3885182313590882304, 268077579637770878976, 19837740893195045044224, 1567181530562408558493696, 131643248567242318913470464
Offset: 0
Joe Keane (jgk(AT)jgk.org)
-
List([0..20], n-> Product([0..n-1], k-> 5*k+4 )); # G. C. Greubel, Aug 20 2019
-
[1] cat [(&*[5*k+4: k in [0..n-1]]): n in [1..20]]; // G. C. Greubel, Aug 20 2019
-
f:= n-> product(5*k+4, k=0..n-1);
-
FoldList[Times, 1, 5Range[0, 20] + 4] (* Vincenzo Librandi, Jun 10 2013 *)
CoefficientList[Series[(1 - 5x)^(-4/5), {x, 0, 20}], x] Range[0, 20]! (* Vaclav Kotesovec, Jan 28 2015 *)
Table[5^n Pochhammer[4/5, n], {n, 0, 20}] (* G. C. Greubel, Aug 20 2019 *)
-
vector(20, n, n--; prod(j=0,n-1, 5*j+4) ) \\ G. C. Greubel, Aug 20 2019
-
[5^n*rising_factorial(4/5, n) for n in (0..20)] # G. C. Greubel, Aug 20 2019
A004747
Triangle read by rows: the Bell transform of the triple factorial numbers A008544 without column 0.
Original entry on oeis.org
1, 2, 1, 10, 6, 1, 80, 52, 12, 1, 880, 600, 160, 20, 1, 12320, 8680, 2520, 380, 30, 1, 209440, 151200, 46480, 7840, 770, 42, 1, 4188800, 3082240, 987840, 179760, 20160, 1400, 56, 1, 96342400, 71998080, 23826880, 4583040, 562800, 45360, 2352, 72, 1
Offset: 1
Triangle begins:
1;
2, 1;
10, 6, 1;
80, 52, 12, 1;
880, 600, 160, 20, 1;
12320, 8680, 2520, 380, 30, 1;
209440, 151200, 46480, 7840, 770, 42, 1;
Tree combinatorics for T(3,2)=6: Consider first the unordered forest of m=2 plane trees with n=3 vertices, namely one vertex with out-degree r=0 (root) and two different trees with two vertices (one root with out-degree r=1 and a leaf with r=0). The 6 increasing labelings come then from the forest with rooted (x) trees x, o-x (1,(3,2)), (2,(3,1)) and (3,(2,1)) and similarly from the second forest x, x-o (1,(2,3)), (2,(1,3)) and (3,(1,2)).
- G. C. Greubel, Rows n = 1..50 of the triangle, flattened
- 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, arXiv:quant-ph/0402027, 2004.
- Richell O. Celeste, Roberto B. Corcino, and Ken Joffaniel M. Gonzales. Two Approaches to Normal Order Coefficients, Journal of Integer Sequences, Vol. 20 (2017), Article 17.3.5.
- Tom Copeland, A Class of Differential Operators and the Stirling Numbers
- Milan Janjic, Some classes of numbers and derivatives, JIS 12 (2009) #09.8.3.
- Wolfdieter Lang, On generalizations of Stirling number triangles, J. Integer Seqs., Vol. 3 (2000), #00.2.4.
- Wolfdieter Lang, Combinatorial Interpretation of Generalized Stirling Numbers, J. Int. Seqs. Vol. 12 (2009) #09.3.3.
- Mathias Pétréolle and Alan D. Sokal, Lattice paths and branched continued fractions. II. Multivariate Lah polynomials and Lah symmetric functions, arXiv:1907.02645 [math.CO], 2019.
- Index entries for sequences related to Bessel functions or polynomials
-
function T(n,k) // T = A004747
if k eq 0 then return 0;
elif k eq n then return 1;
else return (3*(n-1)-k)*T(n-1,k) + T(n-1,k-1);
end if;
end function;
[T(n,k): k in [1..n], n in [1..12]]; // G. C. Greubel, Oct 03 2023
-
T := (n, m) -> 3^n/m!*(1/3*m*GAMMA(n-1/3)*hypergeom([1-1/3*m, 2/3-1/3*m, 1/3-1/3*m], [2/3, 4/3-n], 1)/GAMMA(2/3)-1/6*m*(m-1)*GAMMA(n-2/3)*hypergeom( [1-1/3*m, 2/3-1/3*m, 4/3-1/3*m], [4/3, 5/3-n], 1)/Pi*3^(1/2)*GAMMA(2/3)):
for n from 1 to 6 do seq(simplify(T(n,k)),k=1..n) od;
# Karol A. Penson, Feb 06 2004
# The function BellMatrix is defined in A264428.
# Adds (1,0,0,0, ..) as column 0.
BellMatrix(n -> mul(3*k+2, k=(0..n-1)), 9); # Peter Luschny, Jan 29 2016
-
(* First program *)
T[1,1]= 1; T[, 0]= 0; T[0, ]= 0; T[n_, m_]:= (3*(n-1)-m)*T[n-1, m]+T[n-1, m-1];
Flatten[Table[T[n, m], {n,12}, {m,n}] ][[1 ;; 45]] (* Jean-François Alcover, Jun 16 2011, after recurrence *)
(* Second program *)
f[n_, m_]:= m/n Sum[Binomial[k, n-m-k] 3^k (-1)^(n-m-k) Binomial[n+k-1, n-1], {k, 0, n-m}]; Table[n! f[n, m]/(m! 3^(n-m)), {n,12}, {m,n}]//Flatten (* Michael De Vlieger, Dec 23 2015 *)
(* Third program *)
rows = 12;
T[n_, m_]:= BellY[n, m, Table[Product[3k+2, {k, 0, j-1}], {j, 0, rows}]];
Table[T[n, m], {n,rows}, {m,n}]//Flatten (* Jean-François Alcover, Jun 22 2018 *)
-
# uses [bell_transform from A264428]
triplefactorial = lambda n: prod(3*k+2 for k in (0..n-1))
def A004747_row(n):
trifact = [triplefactorial(k) for k in (0..n)]
return bell_transform(n, trifact)
[A004747_row(n) for n in (0..10)] # Peter Luschny, Dec 21 2015
A013988
Triangle read by rows, the inverse Bell transform of n!*binomial(5,n) (without column 0).
Original entry on oeis.org
1, 5, 1, 55, 15, 1, 935, 295, 30, 1, 21505, 7425, 925, 50, 1, 623645, 229405, 32400, 2225, 75, 1, 21827575, 8423415, 1298605, 103600, 4550, 105, 1, 894930575, 358764175, 59069010, 5235405, 271950, 8330, 140, 1, 42061737025, 17398082625, 3016869625, 289426830, 16929255, 621810, 14070, 180, 1
Offset: 1
Triangle begins as:
1;
5, 1;
55, 15, 1;
935, 295, 30, 1;
21505, 7425, 925, 50, 1;
623645, 229405, 32400, 2225, 75, 1;
21827575, 8423415, 1298605, 103600, 4550, 105, 1;
894930575, 358764175, 59069010, 5235405, 271950, 8330, 140, 1;
- G. C. Greubel, Rows n = 1..50 of the triangle, flattened
- P. Blasiak, K. A. Penson and A. I. Solomon, The general boson normal ordering problem, arXiv:quant-ph/0402027, 2004.
- Milan Janjic, Some classes of numbers and derivatives, JIS 12 (2009) 09.8.3
- Wolfdieter Lang, On generalizations of Stirling number triangles, J. Integer Seqs., Vol. 3 (2000), #00.2.4.
- Peter Luschny, The Bell transform
- Index entries for sequences related to Bessel functions or polynomials
-
function T(n,k) // T = A013988
if k eq 0 then return 0;
elif k eq n then return 1;
else return (6*(n-1)-k)*T(n-1,k) + T(n-1,k-1);
end if;
end function;
[T(n,k): k in [1..n], n in [1..12]]; // G. C. Greubel, Oct 03 2023
-
(* First program *)
rows = 10;
b[n_, m_] := BellY[n, m, Table[k! Binomial[5, k], {k, 0, rows}]];
A = Table[b[n, m], {n, 1, rows}, {m, 1, rows}] // Inverse // Abs;
A013988 = Table[A[[n, m]], {n, 1, rows}, {m, 1, n}] // Flatten (* Jean-François Alcover, Jun 22 2018 *)
(* Second program *)
T[n_, k_]:= T[n, k]= If[k==0, 0, If[k==n, 1, (6*(n-1) -k)*T[n-1,k] +T[n-1, k-1]]];
Table[T[n,k], {n,12}, {k,n}]//Flatten (* G. C. Greubel, Oct 03 2023 *)
-
# uses[inverse_bell_matrix from A264428]
# Adds 1,0,0,0, ... as column 0 at the left side of the triangle.
inverse_bell_matrix(lambda n: factorial(n)*binomial(5, n), 8) # Peter Luschny, Jan 16 2016
Showing 1-10 of 13 results.
Next
Comments