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-10 of 32 results. Next

A005176 Number of regular graphs with n unlabeled nodes.

Original entry on oeis.org

1, 1, 2, 2, 4, 3, 8, 6, 22, 26, 176, 546, 19002, 389454, 50314870, 2942198546, 1698517037030, 442786966117636, 649978211591622812, 429712868499646587714, 2886054228478618215888598, 8835589045148342277802657274, 152929279364927228928025482936226, 1207932509391069805495173417972533120, 99162609848561525198669168653641835566774
Offset: 0

Views

Author

Keywords

References

  • N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).

Crossrefs

Not necessarily connected simple regular graphs: A005176 (any degree), A051031 (triangular array), specified degree k: A000012 (k=0), A059841 (k=1), A008483 (k=2), A005638 (k=3), A033301 (k=4), A165626 (k=5), A165627 (k=6), A165628 (k=7), A180260 (k=8).
Simple regular graphs of any degree: A005177 (connected), A068932 (disconnected), this sequence (not necessarily connected).
Not necessarily connected regular simple graphs with girth at least g: this sequence (g=3), A185314 (g=4), A185315 (g=5), A185316 (g=6), A185317 (g=7), A185318 (g=8), A185319 (g=9).
Cf. A295193.

Formula

a(n) = A005177(n) + A068932(n). - David Wasserman, Mar 08 2002
Row sums of triangle A051031.

Extensions

More terms from David Wasserman, Mar 08 2002
a(15) and a(16) from Jason Kimberley, Sep 25 2009
Edited by Jason Kimberley, Jan 06 2011 and May 24 2012
a(17)-a(21) from Andrew Howroyd, Mar 08 2020
a(22)-a(24) from Andrew Howroyd, Apr 05 2020

A123023 a(n) = (n-1)*a(n-2), a(0)=1, a(1)=0.

Original entry on oeis.org

1, 0, 1, 0, 3, 0, 15, 0, 105, 0, 945, 0, 10395, 0, 135135, 0, 2027025, 0, 34459425, 0, 654729075, 0, 13749310575, 0, 316234143225, 0, 7905853580625, 0, 213458046676875, 0, 6190283353629375, 0, 191898783962510625, 0, 6332659870762850625, 0, 221643095476699771875
Offset: 0

Views

Author

Roger L. Bagula, Sep 24 2006

Keywords

Comments

a(n) is the number of ways of separating n terms into pairs. - Stephen Crowley, Apr 07 2007
a(n) is the n-th moment of the standard normal distribution. - Hal M. Switkay, Nov 06 2019
a(n) is the number of fixed-point free involutions in the symmetric group of degree n. - Nick Krempel, Feb 26 2020

Examples

			From _Gus Wiseman_, Dec 23 2018: (Start)
The a(6) = 15 ways of partitioning {1,2,3,4,5,6} into disjoint pairs:
  {{12}{34}{56}},  {{12}{35}{46}},  {{12}{36}{45}},
  {{13}{24}{56}},  {{13}{25}{46}},  {{13}{26}{45}},
  {{14}{23}{56}},  {{14}{25}{36}},  {{14}{26}{35}},
  {{15}{23}{46}},  {{15}{24}{36}},  {{15}{26}{34}},
  {{16}{23}{45}},  {{16}{24}{35}},  {{16}{25}{34}}.
(End)
		

References

  • Richard Bronson, Schaum's Outline of Modern Introductory Differential Equations, MacGraw-Hill, New York, 1973, page 107, solved problem 19.18
  • Norbert Wiener, Nonlinear Problems in Random Theory, 1958, Equation 1.31

Crossrefs

Programs

  • Magma
    a:=[1,0]; [n le 2 select a[n] else (n-2)*Self(n-2): n in [1..30]]; // Marius A. Burtea, Nov 07 2019
  • Maple
    with(combstruct): ZL2 := [S, {S=Set(Cycle(Z, card=2))}, labeled]:
    seq(count(ZL2, size=n), n=0..36); # Zerinvary Lajos, Sep 24 2007
    a := n -> ifelse(irem(n, 2) = 1, 0, 2^(n/2) * pochhammer(1/2, n/2)):
    seq(a(n), n = 0..36); # Peter Luschny, Jan 11 2023
  • Mathematica
    RecurrenceTable[{a[0] == 1, a[1] == 0, a[n] == (n - 1) a[n - 2]}, a[n], {n, 0, 31}] (* Ray Chandler, Jul 30 2015 *)

Formula

a(n) = (1/2)*Gamma((1/2)*n + 1/2)*2^((1/2)*n)*(1 + (-1)^n)/sqrt(Pi). - Stephen Crowley, Apr 07 2007
E.g.f.: exp(x^2/2). - Geoffrey Critzer, Mar 15 2009
a(2n) = A001147(n). - R. J. Mathar, Oct 11 2011
From Sergei N. Gladkovskii, Nov 18 2012, Dec 05 2012, May 16 2013, May 24 2013, Jun 07 2013: (Start)
Continued fractions:
E.g.f.: E(0) where E(k) = 1 + x^2*(4*k+1)/((4*k+2)*(4*k+3) - x^2*(4*k+2)*(4*k+3)^2/(x^2*(4*k+3) + (4*k+4)*(4*k+5)/E(k+1))).
G.f.: 1/G(0) where G(k) = 1 - x^2*(k+1)/G(k+1).
G.f.: 1 + x^2/(1+x) + Q(0)*x^3/(1+x), where Q(k) = 1 + (2*k+3)*x/(1 - x/(x + 1/Q(k+1))).
G.f.: G(0)/2, where G(k) = 1 + 1/(1-x/(x+1/x/(2*k+1)/G(k+1))).
G.f.: (G(0) - 1)*x/(1+x) + 1, where G(k) = 1 + x*(2*k+1)/(1 - x/(x + 1/G(k+1))). (End)
For n even, a(n) = A001147(n/2) = A124794(3^(n/2)). a(n) is also the coefficient of x1*...*xn in Product_{1 <= i < j <= n} (1 + xi*xj). - Gus Wiseman, Dec 23 2018
a(n) = 2^(n/2)*Pochhammer(1/2, n/2)*(n+1 mod 2). - Peter Luschny, Jan 11 2023

Extensions

Edited by N. J. A. Sloane, Jan 06 2008
Better name by Sergei N. Gladkovskii, May 24 2013
Leading term 1 dropped, offset changed, and entry edited correspondingly by Andrey Zabolotskiy, Nov 07 2019

A051031 Triangle read by rows: T(n,r) is the number of not necessarily connected r-regular graphs with n nodes, 0 <= r < n.

Original entry on oeis.org

1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 0, 1, 0, 1, 1, 1, 2, 2, 1, 1, 1, 0, 2, 0, 2, 0, 1, 1, 1, 3, 6, 6, 3, 1, 1, 1, 0, 4, 0, 16, 0, 4, 0, 1, 1, 1, 5, 21, 60, 60, 21, 5, 1, 1, 1, 0, 6, 0, 266, 0, 266, 0, 6, 0, 1, 1, 1, 9, 94, 1547, 7849, 7849, 1547, 94, 9, 1, 1, 1, 0, 10, 0, 10786, 0, 367860, 0, 10786
Offset: 1

Views

Author

Keywords

Comments

A graph in which every node has r edges is called an r-regular graph. The triangle is symmetric because if an n-node graph is r-regular, than its complement is (n - 1 - r)-regular and two graphs are isomorphic if and only if their complements are isomorphic.
Terms may be computed without generating each graph by enumerating the number of graphs by degree sequence. A PARI program showing this technique for graphs with labeled vertices is given in A295193. Burnside's lemma can be used to extend this method to the unlabeled case. - Andrew Howroyd, Mar 08 2020

Examples

			T(8,3) = 6. Edge-lists for the 6 3-regular 8-node graphs:
  Graph 1: 12, 13, 14, 23, 24, 34, 56, 57, 58, 67, 68, 78
  Graph 2: 12, 13, 14, 24, 34, 26, 37, 56, 57, 58, 68, 78
  Graph 3: 12, 13, 23, 14, 47, 25, 58, 36, 45, 67, 68, 78
  Graph 4: 12, 13, 23, 14, 25, 36, 47, 48, 57, 58, 67, 68
  Graph 5: 12, 13, 24, 34, 15, 26, 37, 48, 56, 57, 68, 78
  Graph 6: 12, 23, 34, 45, 56, 67, 78, 18, 15, 26, 37, 48.
Triangle starts
  1;
  1, 1;
  1, 0, 1;
  1, 1, 1,  1;
  1, 0, 1,  0,    1;
  1, 1, 2,  2,    1,    1;
  1, 0, 2,  0,    2,    0,    1;
  1, 1, 3,  6,    6,    3,    1,    1;
  1, 0, 4,  0,   16,    0,    4,    0,  1;
  1, 1, 5, 21,   60,   60,   21,    5,  1, 1;
  1, 0, 6,  0,  266,    0,  266,    0,  6, 0, 1;
  1, 1, 9, 94, 1547, 7849, 7849, 1547, 94, 9, 1, 1;
  ...
		

Crossrefs

Row sums give A005176.
Regular graphs of degree k: A008483 (k=2), A005638 (k=3), A033301 (k=4), A165626 (k=5), A165627 (k=6), A165628 (k=7), A180260 (k=8).

Formula

T(n,r) = A068934(n,r) + A068933(n,r).

Extensions

More terms and comments from David Wasserman, Feb 22 2002
More terms from Eric W. Weisstein, Oct 19 2002
Description corrected (changed 'orders' to 'degrees') by Jason Kimberley, Sep 06 2009
Extended to the sixteenth row (in the b-file) by Jason Kimberley, Sep 24 2009

A059441 Triangle T(n,k) (n >= 1, 0 <= k <= n-1) giving number of regular labeled graphs with n nodes and degree k, read by rows.

Original entry on oeis.org

1, 1, 1, 1, 0, 1, 1, 3, 3, 1, 1, 0, 12, 0, 1, 1, 15, 70, 70, 15, 1, 1, 0, 465, 0, 465, 0, 1, 1, 105, 3507, 19355, 19355, 3507, 105, 1, 1, 0, 30016, 0, 1024380, 0, 30016, 0, 1, 1, 945, 286884, 11180820, 66462606, 66462606, 11180820, 286884, 945, 1
Offset: 1

Views

Author

N. J. A. Sloane, Feb 01 2001

Keywords

Examples

			1;
1,   1;
1,   0,       1;
1,   3,       3,        1;
1,   0,      12,        0,          1;
1,  15,      70,       70,         15,    1;
1,   0,     465,        0,        465,    0,   1;
1, 105,    3507,    19355,      19355, 3507, 105, 1;
1,   0,   30016,        0,    1024380, ...;
1, 945,  286884, 11180820,   66462606, ...;
1,   0, 3026655,        0, 5188453830, ...;
		

References

  • L. Comtet, Advanced Combinatorics, Reidel, 1974, p. 279.

Crossrefs

Row sums are A295193.
Columns: A123023 (k=1), A001205 (k=2), A002829 (k=3, with alternating zeros), A005815 (k=4), A338978 (k=5, with alternating zeros), A339847 (k=6).
Cf. A051031 (unlabeled case), A324163 (connected case), A333351 (multigraphs).

Programs

  • Mathematica
    Table[SeriesCoefficient[Product[1+Times@@x/@s,{s,Subsets[Range[n],{2}]}],Sequence@@Table[{x[i],0,k},{i,n}]],{n,9},{k,0,n-1}] (* Gus Wiseman, Dec 24 2018 *)
  • PARI
    for(n=1, 10, print(A059441(n))) \\ See A295193 for script, Andrew Howroyd, Aug 28 2019

Extensions

a(37)-a(55) from Andrew Howroyd, Aug 25 2017

A319190 Number of regular hypergraphs spanning n vertices.

Original entry on oeis.org

1, 1, 3, 19, 879, 5280907, 1069418570520767
Offset: 0

Views

Author

Gus Wiseman, Dec 17 2018

Keywords

Comments

We define a hypergraph to be any finite set of finite nonempty sets. A hypergraph is regular if all vertices have the same degree. The span of a hypergraph is the union of its edges.

Examples

			The a(3) = 19 regular hypergraphs:
                 {{1,2,3}}
                {{1},{2,3}}
                {{2},{1,3}}
                {{3},{1,2}}
               {{1},{2},{3}}
            {{1},{2,3},{1,2,3}}
            {{2},{1,3},{1,2,3}}
            {{3},{1,2},{1,2,3}}
            {{1,2},{1,3},{2,3}}
           {{1},{2},{3},{1,2,3}}
           {{1},{2},{1,3},{2,3}}
           {{1},{3},{1,2},{2,3}}
           {{2},{3},{1,2},{1,3}}
        {{1,2},{1,3},{2,3},{1,2,3}}
       {{1},{2},{1,3},{2,3},{1,2,3}}
       {{1},{3},{1,2},{2,3},{1,2,3}}
       {{2},{3},{1,2},{1,3},{1,2,3}}
      {{1},{2},{3},{1,2},{1,3},{2,3}}
  {{1},{2},{3},{1,2},{1,3},{2,3},{1,2,3}}
		

Crossrefs

Programs

  • Mathematica
    Table[Sum[SeriesCoefficient[Product[1+Times@@x/@s,{s,Subsets[Range[n],{1,n}]}],Sequence@@Table[{x[i],0,k},{i,n}]],{k,1,2^n}],{n,5}]

Extensions

a(6) from Andrew Howroyd, Mar 12 2020

A319189 Number of uniform regular hypergraphs spanning n vertices.

Original entry on oeis.org

1, 1, 2, 3, 10, 29, 3780, 5012107
Offset: 0

Views

Author

Gus Wiseman, Dec 17 2018

Keywords

Comments

We define a hypergraph to be any finite set of finite nonempty sets. A hypergraph is uniform if all edges have the same size, and regular if all vertices have the same degree. The span of a hypergraph is the union of its edges.
Also the number of 0-1 matrices with n columns, all distinct rows, no zero columns, equal row-sums, and equal column-sums, up to a permutation of the rows.

Examples

			The a(4) = 10 edge-sets:
               {{1,2,3,4}}
              {{1,2},{3,4}}
              {{1,3},{2,4}}
              {{1,4},{2,3}}
            {{1},{2},{3},{4}}
        {{1,2},{1,3},{2,4},{3,4}}
        {{1,2},{1,4},{2,3},{3,4}}
        {{1,3},{1,4},{2,3},{2,4}}
    {{1,2,3},{1,2,4},{1,3,4},{2,3,4}}
  {{1,2},{1,3},{1,4},{2,3},{2,4},{3,4}}
Inequivalent representatives of the a(4) = 10 matrices:
  [1 1 1 1]
.
  [1 1 0 0] [1 0 1 0] [1 0 0 1]
  [0 0 1 1] [0 1 0 1] [0 1 1 0]
.
  [1 0 0 0] [1 1 0 0] [1 1 0 0] [1 0 1 0] [1 1 1 0]
  [0 1 0 0] [1 0 1 0] [1 0 0 1] [1 0 0 1] [1 1 0 1]
  [0 0 1 0] [0 1 0 1] [0 1 1 0] [0 1 1 0] [1 0 1 1]
  [0 0 0 1] [0 0 1 1] [0 0 1 1] [0 1 0 1] [0 1 1 1]
.
  [1 1 0 0]
  [1 0 1 0]
  [1 0 0 1]
  [0 1 1 0]
  [0 1 0 1]
  [0 0 1 1]
		

Crossrefs

Uniform hypergraphs are counted by A306021. Unlabeled uniform regular multiset partitions are counted by A319056. Regular graphs are A295193. Uniform clutters are A299353.

Programs

  • Mathematica
    Table[Sum[SeriesCoefficient[Product[1+Times@@x/@s,{s,Subsets[Range[n],{m}]}],Sequence@@Table[{x[i],0,k},{i,n}]],{m,0,n},{k,1,Binomial[n,m]}],{n,5}]

Extensions

a(7) from Jinyuan Wang, Jun 20 2020

A333157 Triangle read by rows: T(n,k) is the number of n X n symmetric binary matrices with k ones in every row and column.

Original entry on oeis.org

1, 1, 1, 1, 2, 1, 1, 4, 4, 1, 1, 10, 18, 10, 1, 1, 26, 112, 112, 26, 1, 1, 76, 820, 1760, 820, 76, 1, 1, 232, 6912, 35150, 35150, 6912, 232, 1, 1, 764, 66178, 848932, 1944530, 848932, 66178, 764, 1, 1, 2620, 708256, 24243520, 133948836, 133948836, 24243520, 708256, 2620, 1
Offset: 0

Views

Author

Andrew Howroyd, Mar 09 2020

Keywords

Comments

T(n,k) is the number of k-regular symmetric relations on n labeled nodes.
T(n,k) is the number of k-regular graphs with half-edges on n labeled vertices.
Terms may be computed without generating all graphs by enumerating the number of graphs by degree sequence. A PARI program showing this technique is given below. Burnside's lemma as applied in A122082 and A000666 can be used to extend this method to the case of unlabeled vertices A333159 and A333161 respectively.

Examples

			Triangle begins:
  1,
  1,   1;
  1,   2,     1;
  1,   4,     4,      1;
  1,  10,    18,     10,       1;
  1,  26,   112,    112,      26,      1;
  1,  76,   820,   1760,     820,     76,     1;
  1, 232,  6912,  35150,   35150,   6912,   232,   1;
  1, 764, 66178, 848932, 1944530, 848932, 66178, 764, 1;
  ...
		

Crossrefs

Row sums are A322698.
Central coefficients are A333164.
Cf. A188448 (transposed as array).

Programs

  • PARI
    \\ See script in A295193 for comments.
    GraphsByDegreeSeq(n, limit, ok)={
      local(M=Map(Mat([x^0,1])));
      my(acc(p,v)=my(z); mapput(M, p, if(mapisdefined(M, p, &z), z+v, v)));
      my(recurse(r,p,i,q,v,e) = if(e<=limit && poldegree(q)<=limit, if(i<0, if(ok(x^e+q, r), acc(x^e+q, v)), my(t=polcoeff(p,i)); for(k=0,t,self()(r,p,i-1,(t-k+x*k)*x^i+q,binomial(t,k)*v,e+k)))));
      for(k=2, n, my(src=Mat(M)); M=Map(); for(i=1, matsize(src)[1], my(p=src[i,1]); recurse(n-k, p, poldegree(p), 0, src[i,2], 0))); Mat(M);
    }
    Row(n)={my(M=GraphsByDegreeSeq(n, n\2, (p,r)->poldegree(p)-valuation(p,x) <= r + 1), v=vector(n+1)); for(i=1, matsize(M)[1], my(p=M[i,1], d=poldegree(p)); v[1+d]+=M[i,2]; if(pollead(p)==n, v[2+d]+=M[i,2])); for(i=1, #v\2, v[#v+1-i]=v[i]); v}
    for(n=0, 8, print(Row(n))) \\ Andrew Howroyd, Mar 14 2020

Formula

T(n,k) = T(n,n-k).

A319612 Number of regular simple graphs spanning n vertices.

Original entry on oeis.org

1, 0, 1, 1, 7, 13, 171, 931, 45935, 1084413, 155862511, 10382960971, 6939278572095, 2203360500122299, 4186526756621772343, 3747344008241368443819, 35041787059691023579970847, 156277111373303386104606663421, 4142122641757598618318165240180095
Offset: 0

Views

Author

Gus Wiseman, Dec 17 2018

Keywords

Comments

A graph is regular if all vertices have the same degree. The span of a graph is the union of its edges.

Examples

			The a(4) = 7 edge-sets:
  {{1,2},{3,4}}
  {{1,3},{2,4}}
  {{1,4},{2,3}}
  {{1,2},{1,3},{2,4},{3,4}}
  {{1,2},{1,4},{2,3},{3,4}}
  {{1,3},{1,4},{2,3},{2,4}}
  {{1,2},{1,3},{1,4},{2,3},{2,4},{3,4}}
		

Crossrefs

Formula

a(n) = A295193(n) - 1.

Extensions

a(16)-a(18) from Andrew Howroyd, Sep 02 2019

A326784 BII-numbers of regular set-systems.

Original entry on oeis.org

0, 1, 2, 3, 4, 7, 8, 9, 10, 11, 12, 16, 18, 25, 30, 32, 33, 42, 45, 51, 52, 63, 64, 75, 76, 82, 94, 97, 109, 115, 116, 127, 128, 129, 130, 131, 132, 136, 137, 138, 139, 140, 144, 146, 160, 161, 192, 256, 258, 264, 266, 288, 385, 390, 408, 427, 428, 434, 458
Offset: 1

Views

Author

Gus Wiseman, Jul 25 2019

Keywords

Comments

A binary index of n is any position of a 1 in its reversed binary expansion. The binary indices of n are row n of A048793. We define the set-system with BII-number n to be obtained by taking the binary indices of each binary index of n. A set-system is regular if all vertices appear the same number of times.

Examples

			The sequence of all regular set-systems together with their BII-numbers begins:
   0: {}
   1: {{1}}
   2: {{2}}
   3: {{1},{2}}
   4: {{1,2}}
   7: {{1},{2},{1,2}}
   8: {{3}}
   9: {{1},{3}}
  10: {{2},{3}}
  11: {{1},{2},{3}}
  12: {{1,2},{3}}
  16: {{1,3}}
  18: {{2},{1,3}}
  25: {{1},{3},{1,3}}
  30: {{2},{1,2},{3},{1,3}}
  32: {{2,3}}
  33: {{1},{2,3}}
  42: {{2},{3},{2,3}}
  45: {{1},{1,2},{3},{2,3}}
  51: {{1},{2},{1,3},{2,3}}
		

Crossrefs

Programs

  • Mathematica
    bpe[n_]:=Join@@Position[Reverse[IntegerDigits[n,2]],1];
    Select[Range[0,100],SameQ@@Length/@Split[Sort[Join@@bpe/@bpe[#]]]&]

A322527 Number of integer partitions of n whose product of parts is a power of a squarefree number (A072774).

Original entry on oeis.org

1, 1, 2, 3, 5, 7, 11, 13, 18, 21, 31, 34, 45, 51, 63, 72, 88, 97, 120, 128, 158, 174, 201, 222, 264, 287, 333, 359, 416, 441, 518, 557, 631, 684, 770, 833, 954, 1017, 1141, 1222, 1378, 1475, 1643, 1755, 1939, 2097, 2327, 2471, 2758, 2928, 3233, 3470, 3813, 4085
Offset: 0

Views

Author

Gus Wiseman, Dec 14 2018

Keywords

Examples

			The a(1) = 1 through a(8) = 18 integer partitions:
  (1)  (2)   (3)    (4)     (5)      (6)       (7)        (8)
       (11)  (21)   (22)    (32)     (33)      (52)       (44)
             (111)  (31)    (41)     (42)      (61)       (53)
                    (211)   (221)    (51)      (331)      (71)
                    (1111)  (311)    (222)     (421)      (422)
                            (2111)   (321)     (511)      (521)
                            (11111)  (411)     (2221)     (611)
                                     (2211)    (3211)     (2222)
                                     (3111)    (4111)     (3311)
                                     (21111)   (22111)    (4211)
                                     (111111)  (31111)    (5111)
                                               (211111)   (22211)
                                               (1111111)  (32111)
                                                          (41111)
                                                          (221111)
                                                          (311111)
                                                          (2111111)
                                                          (11111111)
Missing from the list for n = 7 through 9:
  (43)   (62)    (54)
  (322)  (332)   (63)
         (431)   (432)
         (3221)  (522)
                 (621)
                 (3222)
                 (3321)
                 (4311)
                 (32211)
		

Crossrefs

Programs

  • Mathematica
    Table[Length[Select[IntegerPartitions[n],SameQ@@Last/@FactorInteger[Times@@#]&]],{n,30}]
Showing 1-10 of 32 results. Next