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.

A279564 Number of length n inversion sequences avoiding the patterns 000 and 100.

Original entry on oeis.org

1, 1, 2, 5, 16, 60, 260, 1267, 6850, 40572, 260812, 1805646, 13377274, 105487540, 881338060, 7770957903, 72060991394, 700653026744, 7123871583656, 75561097962918, 834285471737784, 9570207406738352, 113855103776348136, 1402523725268921870, 17863056512845724036, 234910502414771617316, 3185732802058088068444, 44501675392317774477088
Offset: 0

Views

Author

Megan A. Martinez, Feb 09 2017

Keywords

Comments

A length n inversion sequence e_1e_2...e_n is a sequence of integers where 0 <= e_i <= i-1. The term a(n) counts those length n inversion sequences with no entries e_i, e_j, e_k (where i= e_j = e_k. This is the same as the set of length n inversion sequences avoiding 000 and 100.

Crossrefs

Programs

  • Maple
    b:= proc(n, i, m, s) option remember; `if`(n=0, 1, add(
          `if`(j in s, 0, b(n-1, i+1, max(m, j),
          `if`(j<=m, s union {j}, s))), j=1..i))
        end:
    a:= n-> b(n, 1, 0, {}):
    seq(a(n), n=0..15);  # Alois P. Heinz, Feb 22 2017
  • Mathematica
    b[n_, i_, m_, s_List] := b[n, i, m, s] = If[n == 0, 1, Sum[If[MemberQ[s, j], 0, b[n-1, i+1, Max[m, j], If[j <= m, s ~Union~ {j}, s]]], {j, 1, i}] ]; a[n_] := b[n, 1, 0, {}]; Table[a[n], {n, 0, 15}] (* Jean-François Alcover, Jul 10 2017, after Alois P. Heinz *)

Formula

The length 4 inversion sequences avoiding (000,100) are 0011, 0012, 0013, 0021, 0022, 0023, 0101, 0102, 0103, 0110, 0112, 0113, 0120, 0121, 0122, 0123.

Extensions

a(10)-a(23) from Alois P. Heinz, Feb 22 2017
a(24)-a(27) from Vaclav Kotesovec, Oct 08 2021