A047171 -id:A047171 - cp's OEIS frontend

A037952 a(n) = binomial(n, floor((n-1)/2)).

0, 1, 1, 3, 4, 10, 15, 35, 56, 126, 210, 462, 792, 1716, 3003, 6435, 11440, 24310, 43758, 92378, 167960, 352716, 646646, 1352078, 2496144, 5200300, 9657700, 20058300, 37442160, 77558760, 145422675, 300540195, 565722720, 1166803110, 2203961430, 4537567650

Offset: 0

N. J. A. Sloane

nonn

First differences of central binomial coefficients: a(n) = A001405(n+1) - A001405(n).
The maximum size of an intersecting (or proper) antichain on an n-set. - Vladeta Jovovic, Dec 27 2000
Number of ordered trees with n+1 edges, having root of degree at least 2 and nonroot nodes of outdegree 0 or 2. - Emeric Deutsch, Aug 02 2002
a(n)=number of Dyck (n+1)-paths that are symmetric but not prime. A prime Dyck path is one that returns to the x-axis only at its terminal point. For example a(3)=3 counts UDUUDDUD, UUDDUUDD, UDUDUDUD. - David Callan, Dec 09 2004
Number of involutions of [n+2] containing the pattern 132 exactly once. For example, a(3)=3 because we have 1'3'2'45, 42'5'13' and 52'4'3'1 (the entries corresponding to the pattern 132 are "primed"). - Emeric Deutsch, Nov 17 2005
Also number of ways to put n eggs in floor(n/2) baskets where order of the baskets matters and all baskets have at least 1 egg. - Ben Paul Thurston, Sep 30 2006
For n >= 1 the number of standard Young tableaux with shapes corresponding to partitions into at most 2 distinct parts. - Joerg Arndt, Oct 25 2012
It seems that 3, 4, 10, ... are Colbourn's Covering Array Numbers CAN(2,k,2). - Ryan Dougherty, May 27 2015
Essentially the same as A007007. - Georg Fischer, Oct 02 2018
a(n) is the number of subsets of {1,2,...,n} that contain exactly 1 more odd than even elements.  For example, for n = 6, a(6) = 15 and the 15 sets are {1}, {3}, {5}, {1,2,3}, {1,2,5}, {1,3,4}, {1,3,6}, {1,4,5}, {1,5,6}, {2,3,5}, {3,4,5}, {3,5,6}, {1,2,3,4,5}, {1,2,3,5,6}, {1,3,4,5,6}. - Enrique Navarrete, Dec 21 2019
a(n) is the number of lattice paths of n steps taken from the step set {U=(1,1), D=(1,-1)} that start at the origin, never go below the x-axis, and end strictly above the x-axis; more succinctly, proper left factors of Dyck paths. For example, a(3)=3 counts UUU, UUD, UDU, and a(4)=4 counts UUUU, UUUD, UUDU, UDUU. - David Callan and Emeric Deutsch, Jan 25 2021
For n >= 3, a(n) is also the number of pinnacle sets in the (n-2)-Plummer-Toft graph. - Eric W. Weisstein, Sep 11 2024

Reinhard Zumkeller, Table of n, a(n) for n = 0..1000
Cyril Banderier and Michael Wallner, Lattice paths with catastrophes, arXiv:1707.01931 [math.CO], 2017.
J.-L. Baril, Classical sequences revisited with permutations avoiding dotted pattern, Electronic Journal of Combinatorics, 18 (2011), #P178.
Jean-Luc Baril, Sergey Kirgizov, and Armen Petrossian, Dyck Paths with catastrophes modulo the positions of a given pattern, Australasian J. Comb. (2022) Vol. 84, No. 2, 398-418.
Jean-Luc Baril and José L. Ramírez, Fibonacci and Catalan paths in a wall, 2023.
Paul Barry, d-orthogonal polynomials, Fuss-Catalan matrices and lattice paths, arXiv:2505.16718 [math.CO], 2025. See p. 25.
C. J. Colbourn, Table of CAN(2, k, 2)
Emeric Deutsch, Ordered trees with prescribed root degrees, node degrees and branch lengths, Discrete Math., 282, 2004, 89-94.
O. Guibert and T. Mansour, Restricted 132-involutions, Sem. Lotharingien de Combinatoire, 48, 2002, Article B48a (Corollary 4.2).
M. Miyakawa, A. Nozaki, G. Pogosyan, and I. G. Rosenberg, A map from the lower-half of the n-Cube onto the (n-1)-Cube which preserves intersecting antichains, Discr. Appl. Math. 92 (2-3) (1999) 223-228.
M. van de Vel, Determination of msd(L^n), J. Algebraic Combin., 9 (1999), 161-171.
Eric Weisstein's World of Mathematics, Pinnacle Set.
Eric Weisstein's World of Mathematics, Plummer-Toft Graph.

Cf. A007007, A032263, A014495 (partial sums), A001405 (partial sums + 1).
Cf. A035951, A035953, A035954, A035955, A035956, A035957.
Cf. A051303, A051304, A051305, A051306, A051307.
Cf. A047171, A036256, A051920.
Cf. A265848.

a037952 n = a037952_list !! n
a037952_list = zipWith (-) (tail a001405_list) a001405_list
-- Reinhard Zumkeller, Mar 04 2012

[Binomial(n, Floor((n-1)/2)): n in [0..40]]; // G. C. Greubel, Jun 21 2022

a:= n-> binomial(n, floor((n-1)/2)):
seq(a(n), n=0..35);  # Alois P. Heinz, Sep 19 2017

Table[ Binomial[n, Floor[n/2]], {n, 0, 35}]//Differences (* Jean-François Alcover, Jun 10 2013 *)
f[n_] := Binomial[n, Floor[(n-1)/2]]; Array[f, 35, 0] (* Robert G. Wilson v, Nov 13 2014 *)

a(n) = binomial(n, (n-1)\2); \\ Altug Alkan, Oct 03 2018

[binomial(n, (n-1)//2) for n in (0..40)] # G. C. Greubel, Jun 21 2022

E.g.f.: BesselI(1, 2*x) + BesselI(2, 2*x). - Vladeta Jovovic, Apr 28 2003
O.g.f.: (1-sqrt(1-4x^2))/(x - 2x^2 + x*sqrt(1-4x^2)).
Convolution of A001405 and A126120 shifted right: g001405(x)*g126120(x) = g037952(x)/x. - Philippe Deléham, Mar 17 2007
D-finite with recurrence: (n+2)*a(n) + (-n-2)*a(n-1) + 2*(-2*n+1)*a(n-2) + 4*(n-2)*a(n-3) = 0. - R. J. Mathar, Jan 25 2013. Proved by Robert Israel, Nov 13 2014
For n > 0: a(n) = A265848(n,0). - Reinhard Zumkeller, Dec 24 2015
a(n) = binomial(n, (n-2)/2) = A001791(n/2), n even; a(n) = binomial(n, (n+1)/2) = A001700((n-1)/2), n odd. - Enrique Navarrete, Dec 21 2019
From R. J. Mathar, Sep 23 2021: (Start)
A001405(n) = a(n) + A000108(n/2), where A(.)=0 for non-integer arguments.
a(n) = Sum_{m=1..n} A053121(n,m) [comment Callan-Deutsch].
a(2n+1) = A000984(n+1)/2. (End)
a(n) = Sum_{k=2..n} A143359(n,k). [Callan's 2004 comment]. - R. J. Mathar, Sep 24 2021
From Amiram Eldar, Sep 27 2024: (Start)
Sum_{n>=1} 1/a(n) = 1 + Pi/sqrt(3).
Sum_{n>=1} (-1)^(n+1)/a(n) = (3 - Pi/sqrt(3))/9. (End)

A219311 Number T(n,k) of standard Young tableaux for partitions of n into exactly k distinct parts; triangle T(n,k), n>=0, 0<=k<=A003056(n), read by rows.

Original entry on oeis.org

1, 0, 1, 0, 1, 0, 1, 2, 0, 1, 3, 0, 1, 9, 0, 1, 14, 16, 0, 1, 34, 35, 0, 1, 55, 134, 0, 1, 125, 435, 0, 1, 209, 1213, 768, 0, 1, 461, 3454, 2310, 0, 1, 791, 10484, 11407, 0, 1, 1715, 28249, 44187, 0, 1, 3002, 80302, 200044, 0, 1, 6434, 231895, 680160, 292864

Offset: 0

Alois P. Heinz, Nov 17 2012

T(n,k) is defined for n,k >= 0. The triangle contains only the terms with k<=A003056(n). T(n,k) = 0 for k>A003056(n).

			A(4,2) = 3:
  +---------+  +---------+  +---------+
  | 1  2  3 |  | 1  2  4 |  | 1  3  4 |
  | 4 .-----+  | 3 .-----+  | 2 .-----+
  +---+        +---+        +---+
Triangle T(n,k) begins:
  1;
  0,  1;
  0,  1;
  0,  1,    2;
  0,  1,    3;
  0,  1,    9;
  0,  1,   14,    16;
  0,  1,   34,    35;
  0,  1,   55,   134;
  0,  1,  125,   435;
  0,  1,  209,  1213,   768;
  0,  1,  461,  3454,  2310;
  0,  1,  791, 10484, 11407;
  ...

Alois P. Heinz, Rows n = 0..100, flattened
Wikipedia, Young tableau

Columns k=0-10 give: A000007, A000012 (for n>0), A047171(n) = A037952(n)-1, A219316, A219317, A219318, A219319, A219320, A219321, A219322, A219323.
Row sums give: A218293.
Row lengths are 1 + A003056(n).
T(A000217(k),k) = A005118(k+1).
Cf. A219272, A219274.

h:= proc(l) local n; n:=nops(l); add(i, i=l)!/mul(mul(1+l[i]-j+
      add(`if`(l[k]>=j, 1, 0), k=i+1..n), j=1..l[i]), i=1..n)
    end:
g:= proc(n, i, k, l) `if`(n=0, h(l), `if`(n>k*(i-(k-1)/2), 0,
      g(n, i-1, min(k, i-1), l)+`if`(i>n, 0, g(n-i, i-1, k-1, [l[], i]))))
    end:
A:= proc(n, k) option remember; `if`(k<0, 0, g(n, n, k, [])) end:
T:= (n, k)-> A(n, k) -A(n, k-1):
seq(seq(T(n, k), k=0..floor((sqrt(1+8*n)-1)/2)), n=0..20);

h[l_] := With[{n = Length[l]}, Sum[i, {i, l}]!/Product[Product[1+l[[i]] - j + Sum[If[l[[k]] >= j, 1, 0], {k, i+1, n}], {j, 1, l[[i]]}], {i, 1, n}] ];
g[n_, i_, k_, l_] := If[n == 0, h[l], If[n > k*(i-(k-1)/2), 0, g[n, i-1, Min[k, i-1], l] + If[i > n, 0, g[n-i, i-1, k-1, Append[l, i]]]]];
a[n_, k_] := a[n, k] = If[k < 0, 0, g[n, n, k, {}]];
t[n_, k_] := a[n, k] - a[n, k-1];
Table[Table[t[n, k], {k, 0, Floor[(Sqrt[1+8*n]-1)/2]}], {n, 0, 20}] // Flatten (* Jean-François Alcover, Dec 17 2013, translated from Maple *)

A259525 First differences of A007318, when Pascal's triangle is seen as flattened list.

Original entry on oeis.org

0, 0, 0, 1, -1, 0, 2, 0, -2, 0, 3, 2, -2, -3, 0, 4, 5, 0, -5, -4, 0, 5, 9, 5, -5, -9, -5, 0, 6, 14, 14, 0, -14, -14, -6, 0, 7, 20, 28, 14, -14, -28, -20, -7, 0, 8, 27, 48, 42, 0, -42, -48, -27, -8, 0, 9, 35, 75, 90, 42, -42, -90, -75, -35, -9, 0, 10, 44, 110

Offset: 0

Reinhard Zumkeller, Jul 18 2015

sign

A214292 gives first differences per row in Pascal's triangle.

Reinhard Zumkeller, Table of n, a(n) for n = 0..10000
Index entries for triangles and arrays related to Pascal's triangle

Cf. A007318, A014473, A163866, A214292.

Cf. A000108, A021499, A047171, A074331.

a259525 n = a259525_list !! n
a259525_list = zipWith (-) (tail pascal) pascal
                           where pascal = concat a007318_tabl

[k eq n select 0 else (n-2*k-1)*Binomial(n,k+1)/(n-k): k in [0..n], n in [0..14]]; // G. C. Greubel, Apr 25 2024

Table[If[k==n, 0, ((n-2*k-1)/(n-k))*Binomial[n,k+1]], {n,0,12}, {k,0, n}]//Flatten (* G. C. Greubel, Apr 25 2024 *)

flatten([[binomial(n,k+1) -binomial(n,k) +int(k==n) for k in range(n+1)] for n in range(15)]) # G. C. Greubel, Apr 25 2024

From G. C. Greubel, Apr 25 2024: (Start)
If viewed as a triangle then:
T(n, k) = binomial(n, k+1) - binomial(n, k), with T(n, n) = 0.
T(n, n-k) = - T(n, k), for 0 <= k < n.
T(2*n, n) = [n=0] - A000108(n).
Sum_{k=0..n} T(n, k) = 0 (row sums).
Sum_{k=0..floor(n/2)} T(n, k) = A047171(n).
Sum_{k=0..n} (-1)^k*T(n, k) = A021499(n).
Sum_{k=0..floor(n/2)} T(n-k, k) = A074331(n-1). (End)

cp's OEIS Frontend

A037952 a(n) = binomial(n, floor((n-1)/2)).

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Haskell

Magma

Maple

Mathematica

PARI

SageMath

Formula

A219311 Number T(n,k) of standard Young tableaux for partitions of n into exactly k distinct parts; triangle T(n,k), n>=0, 0<=k<=A003056(n), read by rows.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Maple

Mathematica

A259525 First differences of A007318, when Pascal's triangle is seen as flattened list.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Haskell

Magma

Mathematica

SageMath

Formula