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.

Previous Showing 11-12 of 12 results.

A275325 Triangle read by rows: number of orbitals over n sectors which have a Catalan decomposition into k parts.

Original entry on oeis.org

1, 0, 1, 0, 2, 0, 6, 0, 4, 2, 0, 20, 10, 0, 10, 8, 2, 0, 70, 56, 14, 0, 28, 28, 12, 2, 0, 252, 252, 108, 18, 0, 84, 96, 54, 16, 2, 0, 924, 1056, 594, 176, 22, 0, 264, 330, 220, 88, 20, 2, 0, 3432, 4290, 2860, 1144, 260, 26, 0, 858, 1144, 858, 416, 130, 24, 2
Offset: 0

Views

Author

Peter Luschny, Aug 15 2016

Keywords

Comments

The definition of an orbital system is given in A232500.
The Catalan decomposition of an orbital w is a list of orbitals which are alternately entirely above or below the main circle ('above' and 'below' in the weak sense) such that their concatenation equals w. If a zero is on the border of two orbitals then it is allocated to the first one. By convention T(0,0) = 1.
The number of orbitals over n sectors is counted by the swinging factorial A056040.

Examples

			Table starts:
[ n] [k=0,1,2,...] [row sum]
[ 0] [1] 1
[ 1] [0, 1] 1
[ 2] [0, 2] 2
[ 3] [0, 6] 6
[ 4] [0, 4, 2] 6
[ 5] [0, 20, 10] 30
[ 6] [0, 10, 8, 2] 20
[ 7] [0, 70, 56, 14] 140
[ 8] [0, 28, 28, 12, 2] 70
[ 9] [0, 252, 252, 108, 18] 630
[10] [0, 84, 96, 54, 16, 2] 252
[11] [0, 924, 1056, 594, 176,  22] 2772
[12] [0, 264, 330, 220, 88, 20, 2] 924
For example T(2*n, n) = 2 counts the Catalan decompositions
[[-1, 1], [1, -1], [-1, 1], ..., [(-1)^n, (-1)^(n+1)]] and
[[1, -1], [-1, 1], [1, -1], ..., [(-1)^(n+1), (-1)^n]].
		

Crossrefs

Other orbital statistics: A241477 (first zero crossing), A274706 (absolute integral), A274709 (max. height), A274710 (number of turns), A274878 (span), A274879 (returns), A274880 (restarts), A274881 (ascent).

Programs

  • Sage
    # uses[unit_orbitals from A274709]
    # Brute force counting
    from itertools import accumulate
    def catalan_factors(P):
        def bisect(orb):
            i = 1
            A = list(accumulate(orb))
            if orb[1] > 0 if orb[0] == 0 else orb[0] > 0:
                while i < len(A) and A[i] >= 0: i += 1
            else:
                while i < len(A) and A[i] <= 0: i += 1
            return i
        R = []
        while P:
            i = bisect(P)
            R.append(P[:i])
            P = P[i:]
        return R
    def orbital_factors(n):
        if n == 0: return [1]
        if n == 1: return [0, 1]
        S = [0]*(n//2 + 1)
        for o in unit_orbitals(n):
            S[len(catalan_factors(o))] += 1
        return S
    for n in (0..9): print(orbital_factors(n))

Formula

T(n,1) = 2*floor((n+2)/2)*n!/floor((n+2)/2)!^2 = A241543(n+2) for n>=2.
For odd n>1 T(n,1) = Sum_{k>=0} T(n+1,k).
A056040(n) - T(n,1) = A232500(n) for n>=2.
Main diagonal: T(n, floor(n/2)) = A266722(n) for n>1.
A275326(n,k) = ceiling(T(n,k)/2).

A275333 Triangle read by rows, the break statistic on orbital systems over n sectors.

Original entry on oeis.org

1, 1, 1, 1, 2, 2, 2, 1, 1, 2, 1, 1, 3, 3, 6, 6, 6, 3, 3, 1, 1, 2, 3, 3, 3, 3, 2, 1, 1, 4, 4, 8, 12, 16, 16, 20, 16, 16, 12, 8, 4, 4, 1, 1, 2, 3, 5, 5, 7, 7, 8, 7, 7, 5, 5, 3, 2, 1, 1, 5, 5, 10, 15, 25, 30, 40, 45, 55, 55, 60, 55, 55, 45, 40, 30, 25, 15, 10, 5, 5
Offset: 0

Views

Author

Peter Luschny, Jul 23 2016

Keywords

Comments

The definition of an orbital system is given in A232500. The number of orbitals over n sectors is counted by the swinging factorial A056040.
The break index of an orbital is the sum of the positions of the up steps that are immediately followed by a step which is not an up step. This statistic is an extension of the major index statistic given in A063746 which appears as the even numbered rows here. This reflects the fact that the swinging factorial can be seen as an extension of the central binomial. The break index is different from the major index of the swinging factorial (which is in A274888).

Examples

			The length of row n is floor(n^2/4 + 1). Triangle starts:
[n] [k=0,1,2,...] [row sum]
[0] [1] 1
[1] [1] 1
[2] [1, 1] 2
[3] [2, 2, 2] 6
[4] [1, 1, 2, 1, 1] 6
[5] [3, 3, 6, 6, 6, 3, 3] 30
[6] [1, 1, 2, 3, 3, 3, 3, 2, 1, 1] 20
[7] [4, 4, 8, 12, 16, 16, 20, 16, 16, 12, 8, 4, 4] 140
[8] [1, 1, 2, 3, 5, 5, 7, 7, 8, 7, 7, 5, 5, 3, 2, 1, 1] 70
[9] [5, 5, 10, 15, 25, 30, 40, 45, 55, 55, 60, 55, 55, 45, 40, 30,25,15,10,5,5] 630
T(5, 5) = 3 because the three orbitals [1, -1, -1, 1, 0], [1, -1, 0, 1, -1] and [1, 0, -1, 1, -1] have at position 1 and position 4 an up-step which is immediately followed by a step which is not an up-step.
		

Crossrefs

Cf. A056040 (row sum), A063746 (sub triangle), A274888 (q-swinging factorial).
Other orbital statistics: A241477 (first zero crossing), A274706 (absolute integral), A274708 (peaks), A274709 (max. height), A274710 (number of turns), A274878 (span), A274879 (returns), A274880 (restarts), A274881 (ascent).

Programs

  • Sage
    # uses[unit_orbitals from A274709]
    # Brute force counting
    def orbital_break_index(n):
        S = [0]*(n^2//4 + 1)
        for u in unit_orbitals(n):
            L = [i+1 if u[i] == 1 and u[i+1] != 1 else 0 for i in (0..n-2)]
            #    i+1 because u is 0-based
            S[sum(L)] += 1
        return S
    for n in (0..9): print(orbital_break_index(n))
Previous Showing 11-12 of 12 results.