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

A034356 Triangle read by rows giving T(n,k) = number of inequivalent linear [n,k] binary codes (n >= 1, 1 <= k <= n).

Original entry on oeis.org

1, 2, 1, 3, 3, 1, 4, 6, 4, 1, 5, 10, 10, 5, 1, 6, 16, 22, 16, 6, 1, 7, 23, 43, 43, 23, 7, 1, 8, 32, 77, 106, 77, 32, 8, 1, 9, 43, 131, 240, 240, 131, 43, 9, 1, 10, 56, 213, 516, 705, 516, 213, 56, 10, 1, 11, 71, 333, 1060, 1988, 1988, 1060, 333, 71, 11, 1, 12, 89
Offset: 1

Views

Author

Keywords

Examples

			Table T(n,k) (with rows n >= 1 and columns k >= 1) begins as follows:
  1;
  2,  1;
  3,  3,  1;
  4,  6,  4,   1;
  5, 10, 10,   5,  1;
  6, 16, 22,  16,  6,  1;
  7, 23, 43,  43, 23,  7, 1;
  8, 32, 77, 106, 77, 32, 8, 1;
  ...
		

Crossrefs

This is A076831 with the k=0 column omitted.
Columns include A000027 (k=1), A034198 (k=2), A034357 (k=3), A034358 (k=4), A034359 (k=5), A034360 (k=6), A034361 (k=7), A034362 (k=8).

Programs

  • Sage
    # Fripertinger's method to find the g.f. of column k >= 2 (for small k):
    def A034356col(k, length):
        R = PowerSeriesRing(ZZ, 'x', default_prec=length)
        x = R.gen().O(length)
        G1 = PSL(k, GF(2))
        G2 = PSL(k-1, GF(2))
        D1 = G1.cycle_index()
        D2 = G2.cycle_index()
        f1 = sum(i[1]*prod(1/(1-x^j) for j in i[0]) for i in D1)
        f2 = sum(i[1]*prod(1/(1-x^j) for j in i[0]) for i in D2)
        f = (f1 - f2)/(1-x)
        return f.list()
    # For instance the Taylor expansion for column k = 4 gives
    print(A034356col(4, 30)) # Petros Hadjicostas, Oct 07 2019

Formula

From Petros Hadjicostas, Sep 30 2019: (Start)
T(n,k) = Sum_{i = k..n} A034253(i,k) for 1 <= k <= n.
G.f. for column k=1: x/(1-x)^2.
G.f. for column k=2: -(x^3 - x - 1)*x^2/((x^2 + x + 1)*(x + 1)*(x - 1)^4).
G.f. for column k=3: -(x^12 - 2*x^11 + x^10 - x^9 - x^6 + x^4 - x - 1)*x^3/((x^6 + x^5 + x^4 + x^3 + x^2 + x + 1)*(x^2 + x + 1)^2*(x^2 + 1)*(x + 1)^2*(x - 1)^8).
G.f. for column k >= 4: modify the Sage program below (cf. function f). It is too complicated to write it here. For some cases, see also the links above.
(End)

A253186 Number of connected unlabeled loopless multigraphs with 3 vertices and n edges.

Original entry on oeis.org

0, 0, 1, 2, 3, 4, 6, 7, 9, 11, 13, 15, 18, 20, 23, 26, 29, 32, 36, 39, 43, 47, 51, 55, 60, 64, 69, 74, 79, 84, 90, 95, 101, 107, 113, 119, 126, 132, 139, 146, 153, 160, 168, 175, 183, 191, 199, 207, 216, 224, 233, 242, 251, 260, 270, 279, 289, 299, 309, 319, 330
Offset: 0

Views

Author

Danny Rorabaugh, Mar 23 2015

Keywords

Comments

a(n) is also the number of ways to partition n into 2 or 3 parts.
a(n) is also the dimension of linear space of three-dimensional 2n-homogeneous polynomial vector fields, which have an octahedral symmetry (for a given representation), which are solenoidal, and which are vector fields on spheres. - Giedrius Alkauskas, Sep 30 2017
Apparently a(n) = A244239(n-6) for n > 4. - Georg Fischer, Oct 09 2018
a(n) is also the number of loopless connected n-regular multigraphs with 4 nodes. - Natan Arie Consigli, Aug 09 2019
a(n) is also the number of inequivalent linear [n, k=2] binary codes without 0 columns (see A034253 for more details). - Petros Hadjicostas, Oct 02 2019
Differs from A160138 only by the offset. - R. J. Mathar, May 15 2023
From Allan Bickle, Jul 13 2025: (Start)
a(n) is the number of theta graphs with n-2 vertices, or n-1 edges. Equivalently, the number of 2-connected graphs with n-2 vertices and n-1 edges.
A theta graph has three paths with length at least 1 identified at their endpoints. There can at most one path with length 1.
For instance the theta graphs with 6 vertices have paths with lengths (1,2,4), (1,3,3), or (2,2,2), so a(6-2) = 3. (End)

Examples

			On vertex set {a, b, c}, every connected multigraph with n = 5 edges is isomorphic to a multigraph with one of the following a(5) = 4 edge multisets: {ab, ab, ab, ab, ac}, {ab, ab, ab, ac, ac}, {ab, ab, ab, ac, bc}, and {ab, ab, ac, ac, bc}.
		

Crossrefs

Column k = 3 of A191646 and column k = 2 of A034253.
First differences of A034198 (excepting the first term).
Cf. A213654, A213655, A213668 (theta graphs).

Programs

  • Magma
    [Floor(n/2) + Floor((n^2 + 6)/12): n in [0..70]]; // Vincenzo Librandi, Mar 24 2015
  • Mathematica
    CoefficientList[Series[- x^2 (x^3 - x - 1) / ((1 - x) (1 - x^2) (1 - x^3)), {x, 0, 70}], x] (* Vincenzo Librandi, Mar 24 2015 *)
    LinearRecurrence[{1, 1, 0, -1, -1, 1}, {0, 0, 1, 2, 3, 4}, 61] (* Robert G. Wilson v, Oct 11 2017 *)
    a[n_]:=Floor[n/2] + Floor[(n^2 + 6)/12]; Array[a, 70, 0] (* Stefano Spezia, Oct 09 2018 *)
  • Sage
    [floor(n/2) + floor((n^2 + 6)/12) for n in range(70)]
    

Formula

a(n) = A004526(n) + A069905(n).
a(n) = floor(n/2) + floor((n^2 + 6)/12).
G.f.: x^2*(x^3 - x - 1)/((x - 1)^2*(x^2 - 1)*(x^2 + x + 1)).

A076831 Triangle T(n,k) read by rows giving number of inequivalent binary linear [n,k] codes (n >= 0, 0 <= k <= n).

Original entry on oeis.org

1, 1, 1, 1, 2, 1, 1, 3, 3, 1, 1, 4, 6, 4, 1, 1, 5, 10, 10, 5, 1, 1, 6, 16, 22, 16, 6, 1, 1, 7, 23, 43, 43, 23, 7, 1, 1, 8, 32, 77, 106, 77, 32, 8, 1, 1, 9, 43, 131, 240, 240, 131, 43, 9, 1, 1, 10, 56, 213, 516, 705, 516, 213, 56, 10, 1, 1, 11, 71, 333, 1060, 1988, 1988
Offset: 0

Views

Author

N. J. A. Sloane, Nov 21 2002

Keywords

Comments

"The familiar appearance of the first few rows [...] provides a good example of the perils of too hasty extrapolation in mathematics." - Slepian.
The difference between this triangle and the one for which it can be so easily mistaken is A250002. - Tilman Piesk, Nov 10 2014.

Examples

			     k    0   1   2   3    4    5    6    7    8   9  10  11        sum
   n
   0      1                                                           1
   1      1   1                                                       2
   2      1   2   1                                                   4
   3      1   3   3   1                                               8
   4      1   4   6   4    1                                         16
   5      1   5  10  10    5    1                                    32
   6      1   6  16  22   16    6    1                               68
   7      1   7  23  43   43   23    7    1                         148
   8      1   8  32  77  106   77   32    8    1                    342
   9      1   9  43 131  240  240  131   43    9   1                848
  10      1  10  56 213  516  705  516  213   56  10   1           2297
  11      1  11  71 333 1060 1988 1988 1060  333  71  11   1       6928
		

References

  • M. Wild, Enumeration of binary and ternary matroids and other applications of the Brylawski-Lucas Theorem, Preprint No. 1693, Tech. Hochschule Darmstadt, 1994

Crossrefs

Cf. A006116, A022166, A076766 (row sums).
A034356 gives same table but with the k=0 column omitted.
Columns include A000012 (k=0), A000027 (k=1), A034198 (k=2), A034357 (k=3), A034358 (k=4), A034359 (k=5), A034360 (k=6), A034361 (k=7), A034362 (k=8).

Programs

  • Sage
    # Fripertinger's method to find the g.f. of column k >= 2 (for small k):
    def A076831col(k, length):
        G1 = PSL(k, GF(2))
        G2 = PSL(k-1, GF(2))
        D1 = G1.cycle_index()
        D2 = G2.cycle_index()
        f1 = sum(i[1]*prod(1/(1-x^j) for j in i[0]) for i in D1)
        f2 = sum(i[1]*prod(1/(1-x^j) for j in i[0]) for i in D2)
        f = (f1 - f2)/(1-x)
        return f.taylor(x, 0, length).list()
    # For instance the Taylor expansion for column k = 4 gives
    print(A076831col(4, 30)) # Petros Hadjicostas, Sep 30 2019

Formula

From Petros Hadjicostas, Sep 30 2019: (Start)
T(n,k) = Sum_{i = k..n} A034253(i,k) for 1 <= k <= n.
G.f. for column k=2: -(x^3 - x - 1)*x^2/((x^2 + x + 1)*(x + 1)*(x - 1)^4).
G.f. for column k=3: -(x^12 - 2*x^11 + x^10 - x^9 - x^6 + x^4 - x - 1)*x^3/((x^6 + x^5 + x^4 + x^3 + x^2 + x + 1)*(x^2 + x + 1)^2*(x^2 + 1)*(x + 1)^2*(x - 1)^8).
G.f. for column k >= 4: modify the Sage program below (cf. function f). It is too complicated to write it here. (See also some of the links above.)
(End)

A039754 Irregular triangle read by rows: T(n,k) = number of binary codes of length n with k words (n >= 0, 0 <= k <= 2^n); also number of 0/1-polytopes with vertices from the unit n-cube; also number of inequivalent Boolean functions of n variables with exactly k nonzero values under action of Jevons group.

Original entry on oeis.org

1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 3, 3, 6, 3, 3, 1, 1, 1, 1, 4, 6, 19, 27, 50, 56, 74, 56, 50, 27, 19, 6, 4, 1, 1, 1, 1, 5, 10, 47, 131, 472, 1326, 3779, 9013, 19963, 38073, 65664, 98804, 133576, 158658, 169112, 158658, 133576, 98804, 65664, 38073, 19963, 9013, 3779, 1326, 472, 131, 47, 10, 5, 1, 1
Offset: 0

Views

Author

Keywords

Comments

For N=1 through N=5, the first 2^(N-1) terms of row N are also found in triangle A171871, which is related to A005646. This was shown for all N by Andrew Weimholt, Dec 30 2009. [Robert Munafo, Jan 25 2010]

Examples

			Triangle begins:
  k  0  1  2  3   4   5   6   7   8   9  10  11  12 13 14 15 16   sums
n
0    1  1                                                            2
1    1  1  1                                                         3
2    1  1  2  1   1                                                  6
3    1  1  3  3   6   3   3   1   1                                 22
4    1  1  4  6  19  27  50  56  74  56  50  27  19  6  4  1  1    402
		

References

  • F. Harary and E. M. Palmer, Graphical Enumeration, Academic Press, NY, 1973, p. 112.
  • M. A. Harrison, Introduction to Switching and Automata Theory. McGraw Hill, NY, 1965, p. 150.

Crossrefs

Row sums give A000616. Cf. A052265.
Rows give A034188, A034189, A034190, etc.
Columns are A034198, A034199, A034200, etc.
Diagonal is A276412.
For other versions of this triangle see A171876, A039754, A276777.
Cf. A171871.

Programs

  • Mathematica
    P = IntegerPartitions;
    AC[d_Integer] := Module[{C, M, p},(* from W. Y. C. Chen algorithm *) M[p_List] := Plus @@ p!/(Times @@ p * Times @@ (Length /@ Split[p]!)); C[p_List, q_List] := Module[{r, m, k, x}, r = If[0 == Length[q], 1, 2*2^IntegerExponent[LCM @@ q, 2]]; m = LCM @@ Join[p/GCD[r, p], q/GCD[r, q]]; CoefficientList[Expand[Product[(1 + x^(k *r))^((Plus @@ Map[MoebiusMu[k/#]*2^Plus @@ GCD[#*r, Join[p, q]]&, Divisors[k]])/(k*r)), {k, 1, m}]], x]]; Sum[Binomial[d, p]*Plus @@ Plus @@ Outer[M[#1] M[#2] C[#1, #2]*2^(d - Length[#1] - Length[#2]) &, P[p], P[d - p], 1], {p, 0, d}]/(d! 2^d)]; AC[0]  = {1, 1};
    AC /@ Range[0, 5] // Flatten (* Jean-François Alcover, Dec 15 2019, after Robert A. Russell in A034189 *)
    Table[ CoefficientList[ CycleIndexPolynomial[ GraphData[ {"Hypercube", n}, "AutomorphismGroup"], Array[Subscript[x, ##] &, 2^n]] /. Table[ Subscript[x, i] -> 1 + x^i, {i, 1, 2^n}], x], {n, 1,8}] // Grid (* Geoffrey Critzer, Jan 10 2020 *)

Formula

Reference gives g.f.
Fripertinger gives g.f. for the number of classes of (n, m) nonlinear codes over an alphabet of size A.

Extensions

Corrected and extended by Vladeta Jovovic, Apr 20 2000
Entry revised by N. J. A. Sloane, Sep 19 2016
T(0, 1) = 1 inserted. (There are two 0-ary functions.) - Tilman Piesk, Jan 10 2023

A171871 Triangle read by rows: Distinct classifications of N elements containing exactly R binary partitions.

Original entry on oeis.org

1, 0, 1, 0, 0, 1, 0, 0, 1, 2, 0, 0, 0, 3, 3, 0, 0, 0, 3, 17, 6, 0, 0, 0, 1, 36, 74, 11, 0, 0, 0, 1, 60, 573, 358, 23, 0, 0, 0, 0, 56, 2802, 7311, 1631, 47, 0, 0, 0, 0, 50, 10087, 107938, 83170, 7563, 106, 0, 0, 0, 0, 27, 26512, 1186969, 3121840, 866657, 34751, 235, 0, 0, 0, 0, 19
Offset: 0

Views

Author

Robert Munafo, Jan 21 2010

Keywords

Comments

Significance of triangle suggested by Franklin T. Adams-Watters on Dec 19 2009. Row N has N terms in this sequence. The triangle starts:
1;
0, 1;
0, 0, 1;
0, 0, 1, 2;
0, 0, 0, 3, 3;
0, 0, 0, 0, 3, 17, 6;
0, 0, 0, 0, 1, 36, 74, 11;
Value is A000055(N) when R=N-1 (last term in each row). (Conjectured by Robert Munafo Dec 28 2009, then proved by Andrew Weimholt and Franklin T. Adams-Watters on Dec 29 2009)
Value is 1 when N=2^R.
Value is 1 when N=(2^R)-1.
Value is R when R>2 and N=(2^R)-2.
Value is A034198(R) when R>2 and N=(2^R)-3.
Conjecture: In general, in each column, the last 2^(R-1) values are the same as the first 2^(N-1) values from the corresponding row of A039754. - Robert Munafo, Dec 30 2009
Value is 0 for all (N,R) for which N is greater than 2^R.
Each term A(N,R) can be computed most efficiently by first enumerating all classifications in A(N-1,R) plus those in A(N-1,R-1), and then adding an additional type and/or partition to each.

Crossrefs

Cf. Row sums are A005646, column sums are A171832.
Cf. A039754.
Last term in each row is A000055(N).
Same triangle read by columns is A171872.

A034357 Number of binary [ n,3 ] codes.

Original entry on oeis.org

0, 0, 1, 4, 10, 22, 43, 77, 131, 213, 333, 507, 751, 1088, 1546, 2159, 2967, 4023, 5384, 7122, 9322, 12081, 15512, 19752, 24950, 31283, 38953, 48188, 59244, 72419, 88037, 106469, 128129, 153476, 183019, 217331, 257033
Offset: 1

Views

Author

Keywords

Comments

Also, a(n) is the number of orbits of C_2^3 subgroups of C_2^n under automorphisms of C_2^n. Also, a(n) is the number of faithful representations of C_2^3 of dimension n up to equivalence by automorphisms of (C_2^3). - Andrew Rupinski, Jan 20 2011

Crossrefs

Column k=3 of both A034356 and A076831 (which are the same except for column k=0).
First differences give A034344.

Formula

G.f.: (-x^15+2*x^14-x^13+x^12+x^9-x^7+x^4+x^3)/((1-x)^3*(1-x^2)*(1-x^3)^2*(1-x^4)*(1-x^7)).

A034199 Number of binary codes (not necessarily linear) of length n with 4 words.

Original entry on oeis.org

0, 1, 6, 19, 47, 103, 203, 373, 649, 1079, 1727, 2681, 4048, 5969, 8620, 12218, 17028, 23378, 31654, 42324, 55941, 73155, 94725
Offset: 1

Views

Author

Keywords

Crossrefs

Extensions

a(15)-a(23) from Sean A. Irvine, Aug 07 2020
Showing 1-7 of 7 results.