cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

Showing 1-3 of 3 results.

A114655 Triangle read by rows: T(n,k) is the number of Schroeder paths of length 2n and having k weak ascents (1<=k<=n). A Schroeder path of length 2n is a lattice path from (0,0) to (2n,0) consisting of U=(1,1), D=(1,-1) and H=(2,0) steps and never going below the x-axis. A weak ascent in a Schroeder path is a maximal sequence of consecutive U and H steps.

Original entry on oeis.org

2, 4, 2, 8, 12, 2, 16, 48, 24, 2, 32, 160, 160, 40, 2, 64, 480, 800, 400, 60, 2, 128, 1344, 3360, 2800, 840, 84, 2, 256, 3584, 12544, 15680, 7840, 1568, 112, 2, 512, 9216, 43008, 75264, 56448, 18816, 2688, 144, 2, 1024, 23040, 138240, 322560, 338688, 169344
Offset: 1

Views

Author

Emeric Deutsch, Dec 23 2005

Keywords

Comments

Row sums are the large Schroeder numbers (A006318). Sum(k*T(n,k),k=1..n)=A002003(n). T(n,k)=2*A114656(n,k).

Examples

			T(3,3)=2 because we have (U)D(U)D(H) and (U)D(U)D(U)D, where U=(1,1), D=(1,-1) and H=(2,0) (the weak ascents are shown between parentheses).
Triangle starts:
2;
4,2;
8,12,2;
16,48,24,2;
32,160,160,40,2.
		

Crossrefs

Programs

  • Maple
    T:=(n,k)->2^(n-k+1)*binomial(n,k)*binomial(n,k-1)/n: for n from 1 to 10 do seq(T(n,k),k=1..n) od; # yields sequence in triangular form
  • Mathematica
    Flatten[Table[2^(n-k+1) Binomial[n,k] Binomial[n,k-1]/n,{n,10}, {k,n}]] (* Harvey P. Dale, Oct 01 2011 *)

Formula

T(n, k)=2^(n-k+1)*binomial(n, k)*binomial(n, k-1)/n (1<=k<=n). G.f. G=G(t, z) satisfies G=z(2+G)(t+G).

Extensions

Keyword tabf changed to tabl by Michel Marcus, Apr 09 2013

A087306 a(n) is the start of the first arithmetic progression with common difference n of n numbers with the same prime signature.

Original entry on oeis.org

1, 3, 155, 111, 3875983, 1333, 763274553951, 11978
Offset: 1

Views

Author

Amarnath Murthy, Sep 02 2003

Keywords

Comments

First column of A087307; main diagonal of A114656.
a(7) > 29*10^9; a(8) = 11978.
a(n) > 10^10 for n from 9 to 11. a(12) = 120998. [From Donovan Johnson, Oct 24 2009]

Examples

			a(4) = 111 as 111, 115, 119 and 123 all are of the prime signature p*q.
		

Crossrefs

Extensions

Edited and extended by David Wasserman, Jan 08 2006
a(7) from Donovan Johnson, Oct 24 2009

A114687 Triangle read by rows: T(n,k) is the number of double rise-bicolored Dyck paths (double rises come in two colors; also called marked Dyck paths) of semilength n and having k double rises (0 <= k <= n-1).

Original entry on oeis.org

1, 1, 2, 1, 6, 4, 1, 12, 24, 8, 1, 20, 80, 80, 16, 1, 30, 200, 400, 240, 32, 1, 42, 420, 1400, 1680, 672, 64, 1, 56, 784, 3920, 7840, 6272, 1792, 128, 1, 72, 1344, 9408, 28224, 37632, 21504, 4608, 256, 1, 90, 2160, 20160, 84672, 169344, 161280, 69120, 11520
Offset: 1

Views

Author

Emeric Deutsch, Dec 23 2005

Keywords

Comments

Row sums are the little Schroeder numbers (A001003). Sum(k*T(n,k),k=0..n-1) = 2*A050152(n-1). Mirror image of A114656.
Triangle T(n,k) given (essentially) by [1,0,1,0,1,0,1,0,1,0,1,0,...] DELTA [0,2,0,2,0,2,0,2,0,2,0,...] where DELTA is the operator defined in A084938. - Philippe Deléham, Jan 02 2009
T(r, m) is the number distinct extremities of the [0,r]-covering hierarchies with segments terminating at r (see Kreweras work). - Michel Marcus, Nov 22 2014

Examples

			T(3,2)=4 because we have UbUbUDDD, UbUrUDDD, UrUbUDDD and UrUrUDDD, where U=(1,1), D=(1,-1) and b (r) indicates a blue (red) double rise.
Triangle begins:
  1;
  1,  2;
  1,  6,  4;
  1, 12, 24,  8;
  1, 20, 80, 80, 16.
Triangle [1,0,1,0,1,0,1,0,...] DELTA [0,2,0,2,0,2,0,2,0,...]:= T(n,k), 0 <= k <= n, begins: 1; 1,0; 1,2,0; 1,6,4,0; 1,12,24,8,0; 1,20,80,80,16,0; ... - _Philippe Deléham_, Jan 02 2009
		

Crossrefs

Programs

  • Maple
    T:=(n,k)->2^k*binomial(n,k)*binomial(n,k+1)/n: for n from 1 to 11 do seq(T(n,k),k=0..n-1) od;
  • Mathematica
    Table[2^k*Binomial[n, k] Binomial[n, k + 1]/n, {n, 10}, {k, 0, n - 1}] // Flatten (* Michael De Vlieger, Nov 05 2017 *)
  • PARI
    t(r, m) = 2^m*binomial(r, m)*binomial(r, m+1)/r;
    tabl(nn) = {for (n=1, nn, for (k=0, n-1, print1(t(n,k), ", ");); print(););} \\ Michel Marcus, Nov 22 2014

Formula

T(n, k) = 2^k * binomial(n, k) * binomial(n, k+1)/n.
G.f.: G=G(t, z) satisfies G = z*(1+G)*(1+2*t*G).
Showing 1-3 of 3 results.