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-2 of 2 results.

A093654 Lower triangular matrix, read by rows, defined as the convergent of the concatenation of matrices using the iteration: M(n+1) = [[M(n),0*M(n)],[M(n)^2,M(n)^2]], with M(0) = [1].

Original entry on oeis.org

1, 1, 1, 1, 0, 1, 2, 1, 2, 1, 1, 0, 0, 0, 1, 2, 1, 0, 0, 2, 1, 2, 0, 1, 0, 2, 0, 1, 7, 2, 4, 1, 7, 2, 4, 1, 1, 0, 0, 0, 0, 0, 0, 0, 1, 2, 1, 0, 0, 0, 0, 0, 0, 2, 1, 2, 0, 1, 0, 0, 0, 0, 0, 2, 0, 1, 7, 2, 4, 1, 0, 0, 0, 0, 7, 2, 4, 1, 2, 0, 0, 0, 1, 0, 0, 0, 2, 0, 0, 0, 1, 7, 2, 0, 0, 4, 1, 0, 0, 7, 2, 0, 0, 4, 1
Offset: 1

Views

Author

Paul D. Hanna, Apr 08 2004

Keywords

Comments

Related to the number of tournament sequences (A008934). First column forms A093655, where A093655(2^n) = A008934(n) for n>=0. Row sums form A093656, where A093656(2^(n-1)) = A093657(n) for n>=1.

Examples

			Let M(n) be the lower triangular matrix formed from the first 2^n rows.
To generate M(3) from M(2), take the matrix square of M(2):
[1,0,0,0]^2=[1,0,0,0]
[1,1,0,0]...[2,1,0,0]
[1,0,1,0]...[2,0,1,0]
[2,1,2,1]...[7,2,4,1]
and append M(2)^2 to the bottom left and bottom right of M(2):
[1],
[1,1],
[1,0,1],
[2,1,2,1],
.........
[1,0,0,0],[1],
[2,1,0,0],[2,1],
[2,0,1,0],[2,0,1],
[7,2,4,1],[7,2,4,1].
Repeating this process converges to triangle A093654.
		

Crossrefs

Formula

First column: T(2^n, 1) = A008934(n) for n>=0.

A093657 2^(n-1)-th term of the row sums of triangle A093654.

Original entry on oeis.org

1, 2, 6, 28, 206, 2418, 45970, 1440746, 75840096, 6828414424, 1069361760254, 295609883371824, 146078092162147126, 130419475982163166640, 212257994312591826735888, 634463537260289571176650942
Offset: 1

Views

Author

Paul D. Hanna, Apr 08 2004

Keywords

Crossrefs

Related to the number of tournament sequences (A008934).

Programs

  • Mathematica
    T[n_, k_]:= T[n,k]= If[n<0 || k>n, 0, If[n==k, 1, If[k==0, Sum[T[n-1,j]*T[j,0], {j,0,n-1}], Sum[T[n-1,j]*(T[j,k-1]+T[j,k]), {j,0,n-1}] ]]]; (* T = A097710 *)
    A093657[n_]:= A093657[n]= Sum[T[n,k], {k,0,n}];
    Table[A093657[n], {n,0,30}] (* G. C. Greubel, Feb 21 2024 *)
  • SageMath
    @CachedFunction
    def T(n, k): # T = A097710
        if n< 0 or k<0 or k>n: return 0
        elif k==n: return 1
        elif k==0: return sum(T(n-1,j)*T(j,0) for j in range(n))
        else: return sum(T(n-1, j)*(T(j, k-1)+T(j,k)) for j in range(n))
    def A093657(n): return sum(T(n,k) for k in range(n+1))
    [A093657(n) for n in range(31)] # G. C. Greubel, Feb 21 2024

Formula

a(n) = A093656(2^(n-1)) for n>=1.
a(n) = Sum_{k=0..n} A097710(n,k), row sums of triangle A097710.
Showing 1-2 of 2 results.