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.

A034852 Rows of (Pascal's triangle - Losanitsch's triangle) (n >= 0, k >= 0).

Original entry on oeis.org

0, 0, 0, 0, 1, 0, 0, 1, 1, 0, 0, 2, 2, 2, 0, 0, 2, 4, 4, 2, 0, 0, 3, 6, 10, 6, 3, 0, 0, 3, 9, 16, 16, 9, 3, 0, 0, 4, 12, 28, 32, 28, 12, 4, 0, 0, 4, 16, 40, 60, 60, 40, 16, 4, 0, 0, 5, 20, 60, 100, 126, 100, 60, 20, 5, 0, 0, 5, 25, 80, 160, 226, 226, 160, 80, 25, 5, 0, 0, 6, 30, 110, 240
Offset: 0

Views

Author

Keywords

Comments

Also number of linear unbranched n-4-catafusenes of C_{2v} symmetry.
Number of n-bead black-white reversible strings with k black beads; also binary grids; string is not palindromic. - Yosu Yurramendi, Aug 08 2008
The first seven columns are A004526, A002620, A006584, A032091, A032092, A032093, A032094. Row sums give essentially A032085. - Yosu Yurramendi, Aug 08 2008
From Álvar Ibeas, Jun 01 2020: (Start)
T(n, k) is the sum of odd-degree coefficients of the Gaussian polynomial [n, k]_q. The area below a NE lattice path between (0,0) and (k, n-k) is even for A034851(n, k) paths and odd for T(n, k) of them.
For a (non-reversible) string of k black and n-k white beads, consider the minimum number of bead transpositions needed to place the black ones to the left and the white ones to the right (in other words, the number of inversions of the permutation obtained by labeling the black beads by integers 1,...,k and the white ones by k+1,...,n, in the same order they take on the string). It is even for A034851(n, k) strings and odd for T(n, k) cases.
(End)

Examples

			Triangle begins:
  0;
  0 0;
  0 1 0;
  0 1 1 0;
  0 2 2 2 0;
  0 2 4 4 2 0;
  ...
		

Crossrefs

Essentially the same as A034877.

Programs

  • Haskell
    a034852 n k = a034852_tabl !! n !! k
    a034852_row n = a034852_tabl !! n
    a034852_tabl = zipWith (zipWith (-)) a007318_tabl a034851_tabl
    -- Reinhard Zumkeller, Mar 24 2012
  • Mathematica
    nmax = 12; t[n_?EvenQ, k_?EvenQ] := (Binomial[n, k] - Binomial[n/2, k/2])/ 2; t[n_?EvenQ, k_?OddQ] := Binomial[n, k]/2; t[n_?OddQ, k_?EvenQ] := (Binomial[n, k] - Binomial[(n-1)/2, k/2])/2; t[n_?OddQ, k_?OddQ] := (Binomial[n, k] - Binomial[(n-1)/2, (k-1)/2])/2; Flatten[ Table[t[n, k], {n, 0, nmax}, {k, 0, n}]] (* Jean-François Alcover, Nov 15 2011, after Yosu Yurramendi *)

Formula

Equals (A007318-A051159)/2. - Yosu Yurramendi, Aug 08 2008
T(n, k) = T(n - 1, k - 1) + T(n - 1, k); except when n is even and k odd, in which case T(n, k) = A034851(n, k) = T(n - 1, k - 1) + A034841(n - 1, k) = A034841(n - 1, k - 1) + T(n - 1, k) = C(n, k) / 2. - Álvar Ibeas, Jun 01 2020

Extensions

More terms from James Sellers, May 04 2000