A050407 -id:A050407 - cp's OEIS frontend

A263340 Triangle read by rows: T(n,k) is the number of graphs with n vertices containing k triangles.

1, 1, 2, 3, 1, 7, 2, 1, 0, 1, 14, 7, 5, 2, 3, 1, 0, 1, 0, 0, 1, 38, 23, 28, 14, 18, 9, 7, 5, 4, 1, 4, 1, 1, 1, 0, 0, 1, 0, 0, 0, 1, 107, 102, 141, 117, 123, 92, 80, 63, 49, 35, 35, 23, 15, 17, 10, 4, 9, 5, 2, 3, 3, 2, 2, 1, 0, 1, 1, 0, 0, 0, 1, 0, 0, 0, 0, 1

Offset: 0

Christian Stump, Oct 15 2015

Row sums give A000088.
First column is A006785.
Row lengths are 1 + binomial(n,3). - Geoffrey Critzer, Apr 13 2017

			Triangle begins:
  1;
  1;
  2;
  3,1;
  7,2,1,0,1;
  14,7,5,2,3,1,0,1,0,0,1;
  38,23,28,14,18,9,7,5,4,1,4,1,1,1,0,0,1,0,0,0,1;
  ...

Pontus von Brömssen, Rows n = 0..10, flattened
FindStat - Combinatorial Statistic Finder, The number of triangles of a graph.
Gus Wiseman, The graphs counted under row n = 5.

Row sums are A000088, labeled A006125.
Column k = 0 is A006785 (lab A213434), covering A372169 (lab A372168).
Counting edges gives A008406 (lab A084546), covering A370167 (lab A054548).
Row lengths are A050407.
The labeled version is A372170, covering A372167.
The covering case is A372173, sums A002494, labeled A006129.
Column k = 1 is A372194 (lab A372172), covering A372174 (lab A372171).
A001858 counts acyclic graphs, unlabeled A005195.
A372176 counts labeled graphs by directed cycles, covering A372175.
Cf. A000055, A053530, A137917, A137918, A140637, A144958, A322700, A370169.

Table[Table[Count[Table[Tr[MatrixPower[AdjacencyMatrix[GraphData[{n, i}]], 3]]/6, {i, 1, NumberOfGraphs[n]}], k], {k, 0, Binomial[n, 3]}], {n, 1, 7}] (* Geoffrey Critzer, Apr 13 2017 *)

Row 7 from Geoffrey Critzer, Apr 13 2017

T(0,0)=1 prepended by Alois P. Heinz, Apr 13 2017

A372170 Irregular triangle read by rows where T(n,k) is the number of labeled simple graphs with n vertices and exactly k triangles, 0 <= k <= binomial(n,3).

Original entry on oeis.org

1, 1, 2, 7, 1, 41, 16, 6, 0, 1, 388, 290, 195, 70, 40, 30, 0, 10, 0, 0, 1, 5789, 6980, 6910, 4560, 3030, 2292, 1230, 780, 600, 180, 236, 60, 45, 60, 0, 0, 15, 0, 0, 0, 1, 133501, 235270, 313705, 302505, 260890, 222509, 174615, 126780, 102970, 67165, 50134, 37485, 20370, 17990, 11445, 6552, 4515, 3570, 1680, 1785, 154, 735, 455, 140, 0, 105, 105, 0, 0, 0, 21, 0, 0, 0, 0, 1

Offset: 0

Gus Wiseman, Apr 23 2024

			Triangle begins:
     1
     1
     2
     7    1
    41   16    6    0    1
   388  290  195   70   40   30    0   10    0    0    1
   ...
For example, the T(4,1) = 16 graphs are:
  12-13-23
  12-14-24
  13-14-34
  23-24-34
  12-13-14-23
  12-13-14-24
  12-13-14-34
  12-13-23-24
  12-13-23-34
  12-14-23-24
  12-14-24-34
  12-23-24-34
  13-14-23-34
  13-14-24-34
  13-23-24-34
  14-23-24-34

Andrew Howroyd, Table of n, a(n) for n = 0..340 (rows 0..10)

Row sums are A006125, covering A006129.
Row lengths are A050407.
Counting edges instead of triangles gives A084546, covering A054548.
Column k = 0 is A213434, covering A372168.
The unlabeled version is A263340.
The covering case is A372167, unlabeled A372173.
Column k = 1 is A372172, covering A372171.
For all cycles (not just triangles) we have A372176, covering A372175.
A001858 counts acyclic graphs, unlabeled A005195.
A367867 counts non-choosable graphs, covering A367868.
A372193 counts unicyclic graphs, unlabeled A236570, covering A372191.
Cf. A000088, A000272, A002494, A006785, A053530, A062734, A121251, A372194.

cys[y_]:=Select[Subsets[Union@@y,{3}],MemberQ[y,{#[[1]],#[[2]]}]&&MemberQ[y,{#[[1]],#[[3]]}]&&MemberQ[y,{#[[2]],#[[3]]}]&];
Table[Length[Select[Subsets[Subsets[Range[n],{2}]],Length[cys[#]]==k&]],{n,0,5},{k,0,Binomial[n,3]}]

Binomial transform of columns of A372167.

a(42) onwards from Andrew Howroyd, Dec 29 2024

A372167 Irregular triangle read by rows where T(n,k) is the number of simple graphs covering n vertices with exactly k triangles, 0 <= k <= binomial(n,3).

Original entry on oeis.org

1, 0, 1, 3, 1, 22, 12, 6, 0, 1, 237, 220, 165, 70, 35, 30, 0, 10, 0, 0, 1, 3961, 5460, 5830, 4140, 2805, 2112, 1230, 720, 600, 180, 230, 60, 45, 60, 0, 0, 15, 0, 0, 0, 1, 99900, 191975, 269220, 272055, 240485, 207095, 166005, 121530, 98770, 65905, 48503, 37065, 20055, 17570, 11445, 6552, 4410, 3570, 1680, 1785, 147, 735, 455, 140, 0, 105, 105, 0, 0, 0, 21, 0, 0, 0, 0, 1

Offset: 0

Gus Wiseman, Apr 23 2024

			Triangle begins:
    1
    0
    1
    3    1
   22   12    6    0    1
  237  220  165   70   35   30    0   10    0    0    1
  ...
Row k = 4 counts the following graphs:
  12-34      12-13-14-23  12-13-14-23-24  .  12-13-14-23-24-34
  13-24      12-13-14-24  12-13-14-23-34
  14-23      12-13-14-34  12-13-14-24-34
  12-13-14   12-13-23-24  12-13-23-24-34
  12-13-24   12-13-23-34  12-14-23-24-34
  12-13-34   12-14-23-24  13-14-23-24-34
  12-14-23   12-14-24-34
  12-14-34   12-23-24-34
  12-23-24   13-14-23-34
  12-23-34   13-14-24-34
  12-24-34   13-23-24-34
  13-14-23   14-23-24-34
  13-14-24
  13-23-24
  13-23-34
  13-24-34
  14-23-24
  14-23-34
  14-24-34
  12-13-24-34
  12-14-23-34
  13-14-23-24

Andrew Howroyd, Table of n, a(n) for n = 0..340 (rows 0..10)
Gus Wiseman, All simple graphs covering {1,2,3,4} grouped by number of triangles.

Row sums are A006129, unlabeled A002494.
Row lengths are A050407.
Counting edges instead of triangles gives A054548, unlabeled A370167.
Column k = 0 is A372168 (non-covering A213434), unlabeled A372169.
Covering case of A372170, unlabeled A263340.
Column k = 1 is A372171 (non-covering A372172), unlabeled A372174.
The unlabeled version is A372173.
For all cycles (not just triangles) we have A372175, non-covering A372176.
A001858 counts acyclic graphs, unlabeled A005195.
A006125 counts simple graphs, unlabeled A000088.
A105784 counts acyclic covering graphs, unlabeled A144958.
Cf. A000272, A053530, A121251, A137916, A367868, A369199, A372191.

cys[y_]:=Select[Subsets[Union@@y,{3}], MemberQ[y,{#[[1]],#[[2]]}] && MemberQ[y,{#[[1]],#[[3]]}] && MemberQ[y,{#[[2]],#[[3]]}]&];
Table[Length[Select[Subsets[Subsets[Range[n],{2}]], Union@@#==Range[n]&&Length[cys[#]]==k&]], {n,0,5},{k,0,Binomial[n,3]}]

Inverse binomial transform of columns of A372170.

a(42) onwards from Andrew Howroyd, Dec 29 2024

A372173 Irregular triangle read by rows where T(n,k) is the number of unlabeled simple graphs covering n vertices with exactly k triangles, 0 <= k <= binomial(n,3).

Original entry on oeis.org

1, 0, 1, 1, 1, 4, 1, 1, 0, 1, 7, 5, 4, 2, 2, 1, 0, 1, 0, 0, 1, 24, 16, 23, 12, 15, 8, 7, 4, 4, 1, 3, 1, 1, 1, 0, 0, 1, 0, 0, 0, 1, 69, 79, 113, 103, 105, 83, 73, 58, 45, 34, 31, 22, 14, 16, 10, 4, 8, 5, 2, 3, 2, 2, 2, 1, 0, 1, 1, 0, 0, 0, 1, 0, 0, 0, 0, 1

Offset: 0

Gus Wiseman, Apr 23 2024

			Triangle begins:
  1
  0
  1
  1 1
  4 1 1 0 1
  7 5 4 2 2 1 0 1 0 0 1

Andrew Howroyd, Table of n, a(n) for n = 0..340 (rows 0..10)
Gus Wiseman, All unlabeled simple graphs covering 5 vertices, grouped by number of triangles.

Row sums are A002494, labeled A006129.
Row lengths are A050407.
The non-covering version is A263340, labeled A372170.
Counting edges instead of triangles gives A370167, labeled A054548.
The labeled version is A372167.
Column k = 0 is A372169, labeled A372168 (non-covering A213434).
Column k = 1 is A372174, labeled A372171.
Column k = 1 is also the covering case of A372194, labeled A372172.
A000088 counts unlabeled graphs, labeled A006125.
A001858 counts acyclic graphs, unlabeled A005195.
A372176 counts labeled graphs by directed cycles, covering A372175.
Cf. A000055, A053530, A137917, A137918, A140637, A144958, A322700, A370169.

a(21) onwards from Andrew Howroyd, Dec 29 2024

A062748 Fourth column (r=3) of FS(3) staircase array A062745.

Original entry on oeis.org

3, 9, 19, 34, 55, 83, 119, 164, 219, 285, 363, 454, 559, 679, 815, 968, 1139, 1329, 1539, 1770, 2023, 2299, 2599, 2924, 3275, 3653, 4059, 4494, 4959, 5455, 5983, 6544, 7139, 7769, 8435, 9138, 9879, 10659, 11479, 12340, 13243, 14189, 15179, 16214, 17295, 18423

Offset: 0

Wolfdieter Lang, Jul 12 2001

In the Frey-Sellers reference this sequence is called {(n+2) over 3}_{2}, n >= 0.
If X is an n-set and Y a fixed (n-3)-subset of X then a(n-3) is equal to the number of 3-subsets of X intersecting Y. - Milan Janjic, Aug 15 2007
Let A be the Hessenberg matrix of order n, defined by: A[1,j]=1, A[i,i]:=-1, A[i,i-1]=-1, and A[i,j]=0 otherwise. Then, for n>=6, a(n-6) = coeff(charpoly(A,x), x^(n-2)). - Milan Janjic, Jan 26 2010
For n>=4, a(n-4) is the number of permutations of 1,2,...,n, such that n-3 is the only up-point, or, the same, a(n-4) is up-down coefficient {n,4} (see comment in A060351). - Vladimir Shevelev, Feb 14 2014

			G.f. = 3 + 9*x + 19*x^2 + 34*x^3 + 55*x^4 + 83*x^5 + 119*x^6 + 164*x^7 + ...

G. C. Greubel, Table of n, a(n) for n = 0..1000
Guillaume Aupy and Julien Herrmann. Periodicity in optimal hierarchical checkpointing schemes for adjoint computations. Optimization Methods and Software, Volume 32, 2017 - Issue 3. Preprint
D. D. Frey and J. A. Sellers, Generalizing Bailey's generalization of the Catalan numbers, The Fibonacci Quarterly, 39 (2001) 142-148.
Milan Janjic, Two Enumerative Functions
Index entries for linear recurrences with constant coefficients, signature (4,-6,4,-1).

A column of triangle A014473.

Cf. A000124, A000292, A050407, A060351, A062745.

[Binomial(n+4,3) -1 : n in [0..50]]; // G. C. Greubel, Apr 22 2024

seq(((n^3-n)/6)-1,n=3..40); # Zerinvary Lajos, May 05 2007

LinearRecurrence[{4,-6,4,-1},{3,9,19,34},40] (* Harvey P. Dale, Jan 13 2019 *)
Binomial[4+Range[0,50], 3] -1 (* G. C. Greubel, Apr 22 2024 *)

{a(n) = binomial(n+4, 3) - 1}; /* Michael Somos, Jan 28 2018 */

[binomial(n+4,3) - 1 for n in range(51)] # G. C. Greubel, Apr 22 2024

a(n) = A062745(n+2, 3) = binomial(n+4, 3) - 1 = (n+1)*(n^2 + 8*n + 18)/3!.
G.f.: N(3;1, x)/(1-x)^4 with N(3;1, x) = 3 - 3*x + x^2, polynomial of the second row of A062746.
a(n-3) = ((n^3 - n)/6) - 1, n >= 3. - Zerinvary Lajos, May 05 2007
a(n) = A000292(n+2) - 1. - Zerinvary Lajos, May 05 2007
a(n) = Sum_{i=2..n} i*(i+1)/2. - Artur Jasinski, Mar 14 2008
a(n) = -A050407(-1-n) for all n in Z. - Michael Somos, Jan 28 2018
a(n) = A000292(n+3) - A000124(n+3). - Torlach Rush, Aug 03 2018
E.g.f.: (1/6)*(18 + 36*x + 12*x^2 + x^3)*exp(x). - G. C. Greubel, Apr 22 2024

A233440 Triangle read by rows: T(n, k) = nbinomial(n, k)A000757(k), 0 <= k <= n.

Original entry on oeis.org

0, 1, 0, 2, 0, 0, 3, 0, 0, 3, 4, 0, 0, 16, 4, 5, 0, 0, 50, 25, 40, 6, 0, 0, 120, 90, 288, 216, 7, 0, 0, 245, 245, 1176, 1764, 1603, 8, 0, 0, 448, 560, 3584, 8064, 14656, 13000, 9, 0, 0, 756, 1134, 9072, 27216, 74196, 131625, 118872, 10, 0, 0, 1200, 2100, 20160, 75600, 274800, 731250, 1320800, 1202880

Offset: 0

Luis Manuel Rivera Martínez, Dec 09 2013

For n >= 0, 0 <= k <= n, T(n, k) is the number of permutations of n symbols that k-commute with an n-cycle (we say that two permutations f and g k-commute if H(fg, gf) = k, where H(, ) denotes the Hamming distance between permutations).

Row sums give A000142.

			For n = 4 and k = 4, T(4, 4) = 4 because all the permutations of 4 symbols that 4-commute with permutation (1, 2, 3, 4) are (1, 3), (2, 4), (1, 2)(3, 4) and (1, 4)(2, 3).

Luis Manuel Rivera Martínez, Rows n = 0..30 of triangle, flattened
R. Moreno and L. M. Rivera, Blocks in cycles and k-commuting permutations, arXiv:1306.5708 [math.CO], 2013-2014.
Luis Manuel Rivera, Integer sequences and k-commuting permutations, arXiv preprint arXiv:1406.3081 [math.CO], 2014-2015.

Cf. A007318, A000757.

T[n_, k_] := n Binomial[n, k] ((-1)^k+Sum[(-1)^j k!/(k-j)/j!, {j, 0, k-1}]);
Table[T[n, k], {n, 0, 10}, {k, 0, n}] // Flatten (* Jean-François Alcover, Nov 03 2018 *)

T(n,k) = n*C(n,k)*A000757(k), 0 <= k <= n.
Bivariate e.g.f.: G(z, u) = z*exp(z*(1-u))*(u/(1-z*u)+(1-log(1-z*u))*(1-u)).
T(n, 0)  = A001477(n), n>=0;
T(n, 1)  = A000004(n), n>=1;
T(n, 2)  = A000004(n), n>=2;
T(n, 3)  = A004320(n-2), n>=3;
T(n, 4)  = A027764(n-1), n>=4;
T(n, 5)  = A027765(n-1)*A000757(5), n>=5;
T(n, 6)  = A027766(n-1)*A000757(6), n>=6;
T(n, 7)  = A027767(n-1)*A000757(7), n>=7;
T(n, 8)  = A027768(n-1)*A000757(8), n>=8;
T(n, 9)  = A027769(n-1)*A000757(9), n>=9;
T(n, 10) = A027770(n-1)*A000757(10), n>=10;
T(n, 11) = A027771(n-1)*A000757(11), n>=11;
T(n, 12) = A027772(n-1)*A000757(12), n>=12;
T(n, 13) = A027773(n-1)*A000757(13), n>=13;
T(n, 14) = A027774(n-1)*A000757(14), n>=14;
T(n, 15) = A027775(n-1)*A000757(15), n>=15;
T(n, 16) = A027776(n-1)*A000757(16), n>=16. - Luis Manuel Rivera Martínez, Feb 08 2014
T(n, 0)+T(n, 3) = n*A050407(n+1), for n>=0. - Luis Manuel Rivera Martínez, Mar 06 2014

A099567 Riordan array (1/(1-x-x^3), 1/(1-x)).

Original entry on oeis.org

1, 1, 1, 1, 2, 1, 2, 3, 3, 1, 3, 5, 6, 4, 1, 4, 8, 11, 10, 5, 1, 6, 12, 19, 21, 15, 6, 1, 9, 18, 31, 40, 36, 21, 7, 1, 13, 27, 49, 71, 76, 57, 28, 8, 1, 19, 40, 76, 120, 147, 133, 85, 36, 9, 1, 28, 59, 116, 196, 267, 280, 218, 121, 45, 10, 1, 41, 87, 175, 312, 463, 547, 498, 339, 166, 55, 11, 1

Offset: 0

Paul Barry, Oct 22 2004

Inverse matrix is A099569.

Subtriangle of the triangle in A144903. - Philippe Deléham, Dec 29 2013

			Rows begin:
   1;
   1,  1;
   1,  2,   1;
   2,  3,   3,   1;
   3,  5,   6,   4,   1;
   4,  8,  11,  10,   5,   1;
   6, 12,  19,  21,  15,   6,   1;
   9, 18,  31,  40,  36,  21,   7,   1;
  13, 27,  49,  71,  76,  57,  28,   8,   1;
  19, 40,  76, 120, 147, 133,  85,  36,   9,   1;
  28, 59, 116, 196, 267, 280, 218, 121,  45,  10,   1;

G. C. Greubel, Rows n = 0..50 of the triangle, flattened

Cf. A000217, A050407, A099568 (row sums), A099569, A144903, A144904.

Columns: A000930, A077868, A050228, A226405, A144898, A144899, A144900, A144901, A144902.

T:= func< n,k | (&+[Binomial(n-2*j, k+j): j in [0..Floor(n/3)]]) >;
[[T(n,k): k in [0..n]]: n in [0..15]]; // G. C. Greubel, Jul 27 2022

T[n_, 0]:=T[n,0]=HypergeometricPFQ[{(1-n)/3,(2-n)/3,-n/3}, {(1-n)/2,-n/2}, -27/4];
T[n_, k_]:= T[n,k]= If[k==n, 1, T[n-1,k-1] +T[n-1,k]];
Table[T[n, k], {n,0,15}, {k,0,n}]//Flatten (* G. C. Greubel, Apr 28 2017 *)

@CachedFunction
def A099567(n, k): return sum( binomial(n-2*j, k+j) for j in (0..(n//3)) )
flatten([[A099567(n,k) for k in (0..n)] for n in (0..15)]) # G. C. Greubel, Jul 27 2022

Number triangle T(n, k) = Sum_{j=0..floor(n/3)} binomial(n-2*j, k+j).
Columns have g.f. (1/(1-x-x^3))*(x/(1-x))^k.
Sum_{k=0..n} T(n, k) = A099568(n).
T(n,0) = A000930(n), T(n,n) = 1, T(n,k) = T(n-1,k-1) + T(n-1,k) for 0Philippe Deléham, Dec 29 2013
exp(x) * e.g.f. for row n = e.g.f. for diagonal n. For example, for n = 3 we have exp(x)*(2 + 3*x + 3*x^2/2! + x^3/3!) = 2 + 5*x + 11*x^2/2! + 21*x^3/3! + 36*x^4/4! + .... The same property holds more generally for Riordan arrays of the form ( f(x), x/(1 - x) ). - Peter Bala, Dec 21 2014
From G. C. Greubel, Jul 27 2022: (Start)
T(n, n-1) = n, for n >= 1.
T(n, n-2) = A000217(n-1), for n >= 2.
T(n, n-3) = A050407(n+1), for n >= 3.
T(2*n, n) = A144904(n+1), for n >= 1. (End)

A144903 Square array A(n,k), n>=0, k>=0, read by antidiagonals, where column k is the expansion of x/((1-x-x^3)*(1-x)^(k-1)).

Original entry on oeis.org

0, 0, 1, 0, 1, 0, 0, 1, 1, 0, 0, 1, 2, 1, 1, 0, 1, 3, 3, 2, 1, 0, 1, 4, 6, 5, 3, 1, 0, 1, 5, 10, 11, 8, 4, 2, 0, 1, 6, 15, 21, 19, 12, 6, 3, 0, 1, 7, 21, 36, 40, 31, 18, 9, 4, 0, 1, 8, 28, 57, 76, 71, 49, 27, 13, 6, 0, 1, 9, 36, 85, 133, 147, 120, 76, 40, 19, 9, 0, 1, 10, 45, 121, 218, 280, 267, 196, 116, 59, 28, 13

Offset: 0

Alois P. Heinz, Sep 24 2008

			Square array (A(n,k)) begins:
  0, 0,  0,  0,  0,   0,   0 ... A000004;
  1, 1,  1,  1,  1,   1,   1 ... A000012;
  0, 1,  2,  3,  4,   5,   6 ... A001477;
  0, 1,  3,  6, 10,  15,  21 ... A000217;
  1, 2,  5, 11, 21,  36,  57 ... A050407;
  1, 3,  8, 19, 40,  76, 133 ... ;
  1, 4, 12, 31, 71, 147, 200 ... A027658;
Antidiagonal triangle (T(n,k)) begins as:
  0;
  0,  1;
  0,  1,  0;
  0,  1,  1,  0;
  0,  1,  2,  1,  1;
  0,  1,  3,  3,  2,  1;
  0,  1,  4,  6,  5,  3,  1;
  0,  1,  5, 10, 11,  8,  4,  2;
  0,  1,  6, 15, 21, 19, 12,  6,  3;

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

Rows 0-4, 6 give: A000004, A000012, A001477, A000217, A050407(n+3), A027658.
Columns 0-9 give: A078012 and A135851(n+2), A078012(n+2) and A135851(n+4), A077868(n-1) for n>0, A050228(n-1) for n>0, A226405, A144898, A144899, A144900, A144901, A144902.
Main diagonal gives: A144904.
Cf. A000930.

A000930:= func< n | (&+[Binomial(n-2*j,j): j in [0..Floor(n/3)]]) >;
A144903:= func< n,k | k eq 0 select 0 else (&+[Binomial(n-k+j-2,j)*A000930(k-j-1) : j in [0..k-1]]) >;
[A144903(n,k): k in [0..n], n in [0..15]]; // G. C. Greubel, Aug 01 2022

A:= proc(n,k) coeftayl (x/ (1-x-x^3)/ (1-x)^(k-1), x=0, n) end:
seq(seq(A(n, d-n), n=0..d), d=0..13);

(* First program *)
a[n_, k_] := SeriesCoefficient[x/((1-x-x^3)*(1-x)^(k-1)), {x, 0, n}];
Table[a[n-k, k], {n,0,12}, {k,n,0,-1}]//Flatten (* Jean-François Alcover, Jan 15 2014 *)
(* Second Program *)
A000930[n_]:= A000930[n]= Sum[Binomial[n-2*j,j], {j,0,Floor[n/3]}];
T[n_, k_]:= T[n, k]= If[k==0, 0, Sum[Binomial[n-k+j-2,j]*A000930[k-j-1], {j,0,k- 1}]];
Table[T[n, k], {n,0,15}, {k,0,n}]//Flatten (* G. C. Greubel, Aug 01 2022 *)

def A000930(n): return sum(binomial(n-2*j,j) for j in (0..(n//3)))
def A144903(n,k):
    if (k==0): return 0
    else: return sum(binomial(n-k+j-2,j)*A000930(k-j-1) for j in (0..k-1))
flatten([[A144903(n,k) for k in (0..n)] for n in (0..15)]) # G. C. Greubel, Aug 01 2022

G.f. of column k: x/((1-x-x^3)*(1-x)^(k-1)).
A(n, n) = A144904(n).
From G. C. Greubel, Aug 01 2022: (Start)
A(n, k) = Sum_{j=0..n-1} binomial(k+j-2, j)*A000930(n-j-1), with A(0, k) = 0.
T(n, k) = Sum_{j=0..k-1} binomial(n-k-j-2, j)*A000930(k-j-1), with T(n, 0) = 0.
T(2*n, n) = A144904(n). (End)

A360010 First part of the n-th weakly decreasing triple of positive integers sorted lexicographically. Each n > 0 is repeated A000217(n) times.

Original entry on oeis.org

1, 2, 2, 2, 3, 3, 3, 3, 3, 3, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 8, 8, 8

Offset: 1

Gus Wiseman, Feb 11 2023

nonn

			Triples begin: (1,1,1), (2,1,1), (2,2,1), (2,2,2), (3,1,1), (3,2,1), (3,2,2), (3,3,1), (3,3,2), (3,3,3), ...

For pairs instead of triples we have A002024.
Positions of first appearances are A050407(n+2) = A000292(n)+1.
The zero-based version is A056556.
The triples have sums A070770.
The second instead of first part is A194848.
The third instead of first part is A333516.
Concatenating all the triples gives A360240.
Cf. A000217, A003056, A056557, A056558, A069905, A158842, A331195.

nn=9;First/@Select[Tuples[Range[nn],3],GreaterEqual@@#&]

from math import comb
from sympy import integer_nthroot
def A360010(n): return (m:=integer_nthroot(6*n,3)[0])+(n>comb(m+2,3)) # Chai Wah Wu, Nov 04 2024

a(n) = A056556(n) + 1 = A331195(3n) + 1.
Sum_{n>=1} (-1)^(n+1)/a(n) = Pi/8 + log(2)/4. - Amiram Eldar, Feb 18 2024
a(n) = m+1 if n>binomial(m+2,3) and a(n) = m otherwise where m = floor((6n)^(1/3)). - Chai Wah Wu, Nov 04 2024

A014370 If n = binomial(b,2) + binomial(c,1), b > c >= 0 then a(n) = binomial(b+1,3) + binomial(c+1,2).

Original entry on oeis.org

1, 2, 4, 5, 7, 10, 11, 13, 16, 20, 21, 23, 26, 30, 35, 36, 38, 41, 45, 50, 56, 57, 59, 62, 66, 71, 77, 84, 85, 87, 90, 94, 99, 105, 112, 120, 121, 123, 126, 130, 135, 141, 148, 156, 165, 166, 168, 171, 175, 180, 186, 193, 201, 210, 220, 221, 223, 226, 230, 235, 241, 248, 256, 265, 275, 286

Offset: 1

N. J. A. Sloane

			The triangle starts:
  1
  2 4
  5 7 10
  11 13 16 20
  21 23 26 30 35

W. Bruns and J. Herzog, Cohen-Macaulay Rings, Cambridge, 1993, p. 159.

Paolo Xausa, Table of n, a(n) for n = 1..11325 (rows 1..150 of triangle, flattened).

Cf. A002260, A000292 (main diagonal), A000217, A014368, A014369, A006046, A050407 (1st column), A005581 (subdiagonal), A071239 (row sums), A212013.

a := 0: for i from 1 to 15 do for j from 1 to i do a := a+j: printf(`%d,`,a); od:od:

A014370[n_, k_] := Binomial[n + 1, 3] + Binomial[k + 1, 2];
Table[A014370[n, k], {n, 12}, {k, n}] (* Paolo Xausa, Mar 11 2025 *)

a(n) = Sum_{m = 1..n} b(m), b(m) = 1,1,2,1,2,3,1,2,3,4,... = A002260. - Klaus Strassburger (strass(AT)ddfi.uni-duesseldorf.de)
a(n*(n+1)/2+m) = n*(n+1)*(n+2)/6 + m*(m+1)/2 = A000292(n)+ A000217(m), m = 0...n+1, n = 1, 2, 3.. - Klaus Strassburger (strass(AT)ddfi.uni-duesseldorf.de)
a(n) = a(n-1) + A002260(n). As a triangle with n >= k >= 1: a(n, k) = a(n-1, k) + (n-1)*n/2 = a(n, k-1) + k = (n^3-n+3k^2+3k)/6. - Henry Bottomley, Nov 14 2001
a(n) = b(n) * (b(n) + 1) * (b(n) + 2) / 6 + c(n) * (c(n) + 1) / 2, where b(n) = [sqrt(2 * n) - 1/2] and c(n) = n - b(n) * (b(n) + 1) / 2. - Robert A. Stump (bee_ess107(AT)msn.com), Sep 20 2002
As a triangle, T(n,k) = binomial(n+1, 3) + binomial(k+1,2). - Franklin T. Adams-Watters, Jan 27 2014

More terms from James Sellers, Feb 05 2000

cp's OEIS Frontend

A263340 Triangle read by rows: T(n,k) is the number of graphs with n vertices containing k triangles.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

Extensions

A372170 Irregular triangle read by rows where T(n,k) is the number of labeled simple graphs with n vertices and exactly k triangles, 0 <= k <= binomial(n,3).

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Mathematica

Formula

Extensions

A372167 Irregular triangle read by rows where T(n,k) is the number of simple graphs covering n vertices with exactly k triangles, 0 <= k <= binomial(n,3).

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Mathematica

Formula

Extensions

A372173 Irregular triangle read by rows where T(n,k) is the number of unlabeled simple graphs covering n vertices with exactly k triangles, 0 <= k <= binomial(n,3).

Views

Author

Keywords

Examples

Links

Crossrefs

Extensions

A062748 Fourth column (r=3) of FS(3) staircase array A062745.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Magma

Maple

Mathematica

PARI

SageMath

Formula

A233440 Triangle read by rows: T(n, k) = n*binomial(n, k)*A000757(k), 0 <= k <= n.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

Formula

A099567 Riordan array (1/(1-x-x^3), 1/(1-x)).

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Magma

Mathematica

SageMath

A233440 Triangle read by rows: T(n, k) = nbinomial(n, k)A000757(k), 0 <= k <= n.