A134394 -id:A134394 - cp's OEIS frontend

A055795 a(n) = binomial(n,4) + binomial(n,2).

0, 1, 3, 7, 15, 30, 56, 98, 162, 255, 385, 561, 793, 1092, 1470, 1940, 2516, 3213, 4047, 5035, 6195, 7546, 9108, 10902, 12950, 15275, 17901, 20853, 24157, 27840, 31930, 36456, 41448, 46937, 52955, 59535, 66711, 74518, 82992, 92170, 102090, 112791, 124313, 136697

Offset: 1

Clark Kimberling, May 28 2000

Answer to the question: if you have a tall building and 4 plates and you need to find the highest story from which a plate thrown does not break, what is the number of stories you can handle given n tries?
If Y is a 2-subset of an n-set X then, for n >= 4, a(n-3) is the number of 4-subsets of X which do not have exactly one element in common with Y. - Milan Janjic, Dec 28 2007
Antidiagonal sums of A139600. - Johannes W. Meijer, Apr 29 2011
Also the number of maximal cliques in the n-tetrahedral graph for n > 5. - Eric W. Weisstein, Jun 12 2017
Mark each point on an 8^(n-2) grid with the number of points that are visible from the point; for n > 3, a(n) is the number of distinct values in the grid. - Torlach Rush, Mar 25 2021
Antidiagonal sums of both A057145 and also A134394 yield this sequence without the initial term 0. - Michael Somos, Nov 23 2021

James Spahlinger, Table of n, a(n) for n = 1..1000
Michael Boardman, The Egg-Drop Numbers, Mathematics Magazine, 77 (2004), 368-372.
Milan Janjic, Two Enumerative Functions
Alexsandar Petojevic, The Function vM_m(s; a; z) and Some Well-Known Sequences, Journal of Integer Sequences, Vol. 5 (2002), Article 02.1.7
Eric Weisstein's World of Mathematics, Johnson Graph
Eric Weisstein's World of Mathematics, Maximal Clique
Eric Weisstein's World of Mathematics, Tetrahedral Graph
Index entries for linear recurrences with constant coefficients, signature (5,-10,10,-5,1).

T(2n+1, n), array T as in A055794. Cf. A004006, A000127.

Cf. A134394, A051601, A057145.

[n*(n^3-6*n^2+23*n-18)/24: n in [1..100]]; // Wesley Ivan Hurt, Sep 29 2013

A055795:=n->binomial(n,4)+binomial(n,2); # Zerinvary Lajos, Jul 24 2006

Table[Binomial[n, 4] + Binomial[n, 2], {n, 50}] (* Vladimir Joseph Stephan Orlovsky, May 24 2009 *)
Table[n (n^3 - 6 n^2 + 23 n - 18)/24, {n, 100}] (* Wesley Ivan Hurt, Sep 29 2013 *)
LinearRecurrence[{5, -10, 10, -5, 1}, {0, 1, 3, 7, 15}, 50] (* Harvey P. Dale, Dec 07 2015 *)
Total[Binomial[Range[20], #] & /@ {2, 4}] (* Eric W. Weisstein, Dec 01 2017 *)
CoefficientList[Series[x (-1 + 2 x - 2 x^2)/(-1 + x)^5, {x, 0, 20}], x] (* Eric W. Weisstein, Dec 01 2017~ *)

A055795(n):=n*(n^3-6*n^2+23*n-18)/24$ makelist(A055795(n), n, 1, 100); /* Wesley Ivan Hurt, Sep 29 2013 */

a(n)= n*(n^3-6*n^2+23*n-18)/24 \\ Wesley Ivan Hurt, Sep 29 2013

a(n) = A000127(n)-1. Differences give A000127.
a(1) = 1; a(n) = a(n-1) + 1 + A004006(n-1).
a(n+1) = C(n, 1) + C(n, 2) + C(n, 3) + C(n, 4). - James Sellers, Mar 16 2002
Row sums of triangle A134394. Also, binomial transform of [1, 2, 2, 2, 1, 0, 0, 0, ...]. - Gary W. Adamson, Oct 23 2007
O.g.f.: -x^2(1-2x+2x^2)/(x-1)^5. a(n) = A000332(n) + A000217(n-1). - R. J. Mathar, Apr 13 2008
a(n) = n*(n^3 - 6*n^2 + 23*n - 18)/24. - Gary Detlefs, Dec 08 2011
a(n) = 5*a(n-1) - 10*a(n-2) + 10*a(n-3) - 5*a(n-4) + a(n-5); a(1)=0, a(2)=1, a(3)=3, a(4)=7, a(5)=15. - Harvey P. Dale, Dec 07 2015

Better description from Leonid Broukhis, Oct 24 2000
Edited by Zerinvary Lajos, Jul 24 2006
Offset corrected and Sellers formula adjusted by Gary Detlefs, Nov 28 2011

A300401 Array T(n,k) = n(binomial(k, 2) + 1) + k(binomial(n, 2) + 1) read by antidiagonals.

Original entry on oeis.org

0, 1, 1, 2, 2, 2, 3, 4, 4, 3, 4, 7, 8, 7, 4, 5, 11, 14, 14, 11, 5, 6, 16, 22, 24, 22, 16, 6, 7, 22, 32, 37, 37, 32, 22, 7, 8, 29, 44, 53, 56, 53, 44, 29, 8, 9, 37, 58, 72, 79, 79, 72, 58, 37, 9, 10, 46, 74, 94, 106, 110, 106, 94, 74, 46, 10, 11, 56, 92, 119

Offset: 0

Franck Maminirina Ramaharo, Mar 05 2018

Antidiagonal sums are given by 2*A055795.
Rows/columns n are binomial transform of {n, A152947(n+1), n, 0, 0, 0, ...}.
Some primes in the array are
n = 1: {2, 7, 11, 29, 37, 67, 79, 137, 191, 211, 277, 379, ...} = A055469, primes of the form k*(k + 1)/2 + 1;
n = 3: {3, 7, 37, 53, 479, 653, 1249, 1619, 2503, 3727, 4349, 5737, 7109, 8179, 9803, 11839, 12107, ...};
n = 4: {11, 37, 79, 137, 211, 821, 991, 1597, 1831, 2081, 2347, ...} = A188382, primes of the form 8*(2*k - 1)^2 + 2*(2*k - 1) + 1.

			The array T(n,k) begins
0     1    2    3    4     5     6     7     8     9    10    11  ...
1     2    4    7   11    16    22    29    37    46    56    67  ...
2     4    8   14   22    32    44    58    74    92   112   134  ...
3     7   14   24   37    53    72    94   119   147   178   212  ...
4    11   22   37   56    79   106   137   172   211   254   301  ...
5    16   32   53   79   110   146   187   233   284   340   401  ...
6    22   44   72  106   146   192   244   302   366   436   512  ...
7    29   58   94  137   187   244   308   379   457   542   634  ...
8    37   74  119  172   233   302   379   464   557   658   767  ...
9    46   92  147  211   284   366   457   557   666   784   911  ...
10   56  112  178  254   340   436   542   658   784   920  1066  ...
11   67  134  212  301   401   512   634   767   911  1066  1232  ...
12   79  158  249  352   467   594   733   884  1047  1222  1409  ...
13   92  184  289  407   538   682   839  1009  1192  1388  1597  ...
14  106  212  332  466   614   776   952  1142  1346  1564  1796  ...
15  121  242  378  529   695   876  1072  1283  1509  1750  2006  ...
16  137  274  427  596   781   982  1199  1432  1681  1946  2227  ...
17  154  308  479  667   872  1094  1333  1589  1862  2152  2459  ...
18  172  344  534  742   968  1212  1474  1754  2052  2368  2702  ...
19  191  382  592  821  1069  1336  1622  1927  2251  2594  2956  ...
20  211  422  653  904  1175  1466  1777  2108  2459  2830  3221  ...
...
The inverse binomial transforms of the columns are
0     1    2    3    4     5     6     7     8     9    10    11  ...  A001477
1     1    2    4    7    11    22    29    37    45    56    67  ...  A152947
0     1    2    3    4     5     6     7     8     9    10    11  ...  A001477
0     0    0    0    0     0     0     0     0     0     0     0  ...
0     0    0    0    0     0     0     0     0     0     0     0  ...
0     0    0    0    0     0     0     0     0     0     0     0  ...
...

Miklós Bóna, Introduction to Enumerative Combinatorics, McGraw-Hill, 2007.
L. Comtet, Advanced Combinatorics: The Art of Finite and Infinite Expansions, Reidel Publishing Company, 1974.
R. P. Stanley, Enumerative Combinatorics, second edition, Cambridge University Press, 2011.

Michael De Vlieger, Table of n, a(n) for n = 0..11475 (rows 0 <= n <= 150, flattened).
Cheyne Homberger, Patterns in Permutations and Involutions: A Structural and Enumerative Approach, arXiv preprint 1410.2657 [math.CO], 2014.
Franck Ramaharo, A generating polynomial for the two-bridge knot with Conway's notation C(n,r), arXiv:1902.08989 [math.CO], 2019.

Cf. A000124, A001477, A006000, A008815, A014206, A051601, A055469, A077028, A081436, A084849, A131074, A134394, A139600, A141387, A179000, A188377, A188382, A273465.

T := (n, k) -> n*(binomial(k, 2) + 1) + k*(binomial(n, 2) + 1);
for n from 0 to 20 do seq(T(n, k), k = 0 .. 20) od;

T[n_, k_] := n (Binomial[k, 2] + 1) + k (Binomial[n, 2] + 1);
Table[T[n - k, k], {n, 0, 11}, {k, 0, n}] // Flatten (* Jean-François Alcover, Dec 07 2018 *)

T(n, k) := n*(binomial(k, 2) + 1) + k*(binomial(n, 2) + 1)$
for n:0 thru 20 do
  print(makelist(T(n, k), k, 0, 20));

T(n, k) = n*(binomial(k,2) + 1) + k*(binomial(n,2) + 1);
tabl(nn) = for (n=0, nn, for (k=0, nn, print1(T(n, k), ", ")); print); \\ Michel Marcus, Mar 12 2018

T(n,k) = T(k,n) = n*A152947(k+1) + k*A152947(n+1).
T(n,0) = A001477(n).
T(n,1) = A000124(n).
T(n,2) = A014206(n).
T(n,3) = A273465(3*n+2).
T(n,4) = A084849(n+1).
T(n,n) = A179000(n-1,n), n >= 1.
T(2*n,2*n) = 8*A081436(n-1), n >= 1.
T(2*n+1,2*n+1) = 2*A006000(2*n+1).
T(n,n+1) = A188377(n+3).
T(n,n+2) = A188377(n+2), n >= 1.
Sum_{k=0..n} T(k,n-k) = 2*(binomial(n, 4) + binomial(n, 2)).
G.f.: -((2*x*y - y - x)*(2*x*y - y - x + 1))/(((x - 1)*(y - 1))^3).
E.g.f.: (1/2)*(x + y)*(x*y + 2)*exp(x + y).

cp's OEIS Frontend

A055795 a(n) = binomial(n,4) + binomial(n,2).

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Magma

Maple

Mathematica

Maxima

PARI

Formula

Extensions

A300401 Array T(n,k) = n(binomial(k, 2) + 1) + k(binomial(n, 2) + 1) read by antidiagonals.

Views

Author

Keywords

Comments

Examples

References

Links

Crossrefs

Programs

Maple

Mathematica

Maxima

PARI

Formula

cp's OEIS Frontend

A055795 a(n) = binomial(n,4) + binomial(n,2).

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Magma

Maple

Mathematica

Maxima

PARI

Formula

Extensions

A300401 Array T(n,k) = n*(binomial(k, 2) + 1) + k*(binomial(n, 2) + 1) read by antidiagonals.

Views

Author

Keywords

Comments

Examples

References

Links

Crossrefs

Programs

Maple

Mathematica

Maxima

PARI

Formula

A300401 Array T(n,k) = n(binomial(k, 2) + 1) + k(binomial(n, 2) + 1) read by antidiagonals.