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.

A228617 T(n,k) is the number of s in {1,...,n}^n having shortest run with the same value of length k; triangle T(n,k), n>=0, 0<=k<=n, read by rows.

Original entry on oeis.org

1, 0, 1, 0, 2, 2, 0, 24, 0, 3, 0, 240, 12, 0, 4, 0, 3080, 40, 0, 0, 5, 0, 46410, 210, 30, 0, 0, 6, 0, 822612, 840, 84, 0, 0, 0, 7, 0, 16771832, 5208, 112, 56, 0, 0, 0, 8, 0, 387395856, 23760, 720, 144, 0, 0, 0, 0, 9, 0, 9999848700, 148410, 2610, 180, 90, 0, 0, 0, 0, 10
Offset: 0

Views

Author

Alois P. Heinz, Aug 27 2013

Keywords

Comments

Sum_{k=0..n} k*T(n,k) = A228618(n).
Sum_{k=0..n} T(n,k) = A000312(n).
T(2*n,n) = A002939(n) for n>0.
T(2*n+1,n) = A033586(n) for n>1.
T(2*n+2,n) = A085250(n+1) for n>2.
T(2*n+3,n) = A033586(n+1) for n>3.

Examples

			T(3,1) = 24: [1,1,2], [1,1,3], [1,2,1], [1,2,2], [1,2,3], [1,3,1], [1,3,2], [1,3,3], [2,1,1], [2,1,2], [2,1,3], [2,2,1], [2,2,3], [2,3,1], [2,3,2], [2,3,3], [3,1,1], [3,1,2], [3,1,3], [3,2,1], [3,2,2], [3,2,3], [3,3,1], [3,3,2].
T(3,3) =  3: [1,1,1], [2,2,2], [3,3,3].
Triangle T(n,k) begins:
  1;
  0,        1;
  0,        2,    2;
  0,       24,    0,   3;
  0,      240,   12,   0,  4;
  0,     3080,   40,   0,  0,  5;
  0,    46410,  210,  30,  0,  0,  6;
  0,   822612,  840,  84,  0,  0,  0,  7;
  0, 16771832, 5208, 112, 56,  0,  0,  0,  8;

Links

Crossrefs

Row sums give: A000312.
Columns k=0-10 give: A000007, A228619, A228621, A228622, A228630, A228631, A228632, A228633, A228634, A228635, A228636.
Main diagonal gives: A028310.
Cf. A228154, A228273.

A228273 T(n,k) is the number of s in {1,...,n}^n having longest ending contiguous subsequence with the same value of length k; triangle T(n,k), n>=0, 0<=k<=n, read by rows.

Original entry on oeis.org

1, 0, 1, 0, 2, 2, 0, 18, 6, 3, 0, 192, 48, 12, 4, 0, 2500, 500, 100, 20, 5, 0, 38880, 6480, 1080, 180, 30, 6, 0, 705894, 100842, 14406, 2058, 294, 42, 7, 0, 14680064, 1835008, 229376, 28672, 3584, 448, 56, 8, 0, 344373768, 38263752, 4251528, 472392, 52488, 5832, 648, 72, 9
Offset: 0

Views

Author

Alois P. Heinz, Aug 19 2013

Keywords

Examples

			T(0,0) = 1: [].
T(1,1) = 1: [1].
T(2,1) = 2: [1,2], [2,1].
T(2,2) = 2: [1,1], [2,2].
T(3,1) = 18: [1,1,2], [1,1,3], [1,2,1], [1,2,3], [1,3,1], [1,3,2], [2,1,2], [2,1,3], [2,2,1], [2,2,3], [2,3,1], [2,3,2], [3,1,2], [3,1,3], [3,2,1], [3,2,3], [3,3,1], [3,3,2].
T(3,2) = 6: [1,2,2], [1,3,3], [2,1,1], [2,3,3], [3,1,1], [3,2,2].
T(3,3) = 3: [1,1,1], [2,2,2], [3,3,3].
Triangle T(n,k) begins:
  1;
  0,        1;
  0,        2,       2;
  0,       18,       6,      3;
  0,      192,      48,     12,     4;
  0,     2500,     500,    100,    20,    5;
  0,    38880,    6480,   1080,   180,   30,   6;
  0,   705894,  100842,  14406,  2058,  294,  42,  7;
  0, 14680064, 1835008, 229376, 28672, 3584, 448, 56,  8;

Links

Crossrefs

Row sums give: A000312.
Columns k=0-4 give: A000007, A066274(n) = 2*A081131(n) for n>1, A053506(n) for n>2, A055865(n-1) = A085389(n-1) for n>3, A085390(n-1) for n>4.
Main diagonal gives: A028310.
Lower diagonals include (offsets may differ): A002378, A045991, A085537, A085538, A085539.
Cf. A228154, A228617.

Programs

  • Maple
    T:= (n, k)-> `if`(n=0 and k=0, 1, `if`(k<1 or k>n, 0,
             `if`(k=n, n, (n-1)*n^(n-k)))):
seq(seq(T(n,k), k=0..n), n=0..12);
  • Mathematica
    f[0,0]=1;
f[n_,k_]:=Which[1<=k<=n-1,n^(n-k)*(n-1),k<1,0,k==n,n,k>n,0];
Table[Table[f[n,k],{k,0,n}],{n,0,10}]//Grid (* Geoffrey Critzer, May 19 2014 *)

Formula

T(0,0) = 1, else T(n,k) = 0 for k<1 or k>n, else T(n,n) = n, else T(n,k) = (n-1)*n^(n-k).
Sum_{k=0..n} T(n,k) = A000312(n).
Sum_{k=0..n} k*T(n,k) = A031972(n).

A228194 Sum of lengths of longest contiguous subsequences with the same value over all s in {1,...,n}^n.

Original entry on oeis.org

0, 1, 6, 45, 436, 5345, 79716, 1403689, 28518736, 656835633, 16913175310, 481496895121, 15017297246832, 509223994442449, 18652724643726460, 733989868341011325, 30879549535458286096, 1383134389475750109089, 65714992805644764521724, 3300990246208225995520681
Offset: 0

Views

Author

Alois P. Heinz, Aug 17 2013

Keywords

Examples

			a(2) = 6 = 2+1+1+2: [1,1], [1,2], [2,1], [2,2].

Links

Crossrefs

Main diagonal of A228250.
Cf. A228618.

Programs

  • Maple
    a:= proc(n) option remember; local b; b:=
      proc(m, s, i) option remember; `if`(m>i or s>m, 0,
       `if`(i=1, n, `if`(s=1, (n-1)*add(b(m, h, i-1), h=1..m),
        b(m, s-1, i-1) +`if`(s=m, b(m-1, s-1, i-1), 0))))
      end; forget(b);
      add(m*add(b(m, s, n), s=1..m), m=1..n)
    end:
seq(a(n), n=0..30);
  • Mathematica
    a[n_] := a[n] = Module[{b}, b[m_, s_, i_] := b[m, s, i] = If[m>i || s>m, 0, If[i==1, n, If[s==1, (n-1) Sum[b[m, h, i-1], {h, 1, m}], b[m, s-1, i-1] + If[s==m, b[m-1, s-1, i-1], 0]]]]; Sum[m Sum[b[m, s, n], {s, 1, m}], {m, 1, n}]];
Table[a[n], {n, 0, 30}] (* Jean-François Alcover, Dec 20 2020, after Alois P. Heinz *)

Formula

a(n) = Sum_{k=1..n} k*A228154(n,k).
a(n) ~ (2-exp(-1)) * n^n. - Vaclav Kotesovec, Sep 10 2014
Showing 1-3 of 3 results.

Started in 1964 by Neil J. A. Sloane | Maintained by The OEIS Foundation Inc.

Content is available under The OEIS End-User License Agreement.