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 20 results. Next

A116539 Number of zero-one matrices with n ones and no zero rows or columns and with distinct rows, up to permutation of rows.

Original entry on oeis.org

1, 1, 2, 7, 28, 134, 729, 4408, 29256, 210710, 1633107, 13528646, 119117240, 1109528752, 10889570768, 112226155225, 1210829041710, 13640416024410, 160069458445202, 1952602490538038, 24712910192430620, 323964329622503527, 4391974577299578248, 61488854148194151940
Offset: 0

Views

Author

Vladeta Jovovic, Mar 27 2006

Keywords

Comments

Also the number of labeled hypergraphs spanning an initial interval of positive integers with edge-sizes summing to n. - Gus Wiseman, Dec 18 2018

Examples

			From _Gus Wiseman_, Dec 18 2018: (Start)
The a(3) = 7 edge-sets:
    {{1,2,3}}
   {{1},{1,2}}
   {{2},{1,2}}
   {{1},{2,3}}
   {{2},{1,3}}
   {{3},{1,2}}
  {{1},{2},{3}}
Inequivalent representatives of the a(4) = 28 0-1 matrices:
  [1111]
.
  [100][1000][010][0100][001][0010][0001][110][110][1100][101][1010][1001]
  [111][0111][111][1011][111][1101][1110][101][011][0011][011][0101][0110]
.
  [10][100][100][1000][100][100][1000][1000][010][010][0100][0100][0010]
  [01][010][010][0100][001][001][0010][0001][001][001][0010][0001][0001]
  [11][101][011][0011][110][011][0101][0110][110][101][1001][1010][1100]
.
  [1000]
  [0100]
  [0010]
  [0001]
(End)

Links

Crossrefs

Binary matrices with distinct rows and columns, various versions: A059202, A088309, A088310, A088616, A089673, A089674, A093466, A094000, A094223, A116532, A116539, A181230, A259763
Cf. A049311, A058891, A101370, A255906, A283877, A306021, A319190.
Row sums of A326914 and of A326962.

Programs

  • Maple
    b:= proc(n, i, k) b(n, i, k):=`if`(n=0, 1, `if`(i<1, 0, add(b(n-i*j,
      min(n-i*j, i-1), k)*binomial(binomial(k, i), j), j=0..n/i)))
    end:
a:= n-> add(add(b(n$2, i)*(-1)^(k-i)*binomial(k, i), i=0..k), k=0..n):
seq(a(n), n=0..23);  # Alois P. Heinz, Sep 13 2019
  • Mathematica
    b[n_, i_, k_] := b[n, i, k] = If[n == 0, 1, If[i < 1, 0, Sum[b[n - i*j, Min[n - i*j, i - 1], k]*Binomial[Binomial[k, i], j], {j, 0, n/i}]]];
a[n_] := Sum[Sum[b[n, n, i]*(-1)^(k-i)*Binomial[k, i], {i, 0, k}], {k, 0, n}];
a /@ Range[0, 23] (* Jean-François Alcover, Feb 25 2020, after Alois P. Heinz *)

Extensions

a(0)=1 prepended and more terms added by Alois P. Heinz, Sep 13 2019

A295193 Number of regular simple graphs on n labeled nodes.

Original entry on oeis.org

1, 2, 2, 8, 14, 172, 932, 45936, 1084414, 155862512, 10382960972, 6939278572096, 2203360500122300, 4186526756621772344, 3747344008241368443820, 35041787059691023579970848, 156277111373303386104606663422, 4142122641757598618318165240180096
Offset: 1

Views

Author

Álvar Ibeas, Nov 16 2017

Keywords

Examples

			From _Gus Wiseman_, Dec 19 2018: (Start)
A graph is regular if all vertices have the same degree. For example, the a(4) = 8 simple regular graphs are:
  1 2
  3 4
.
  4---1  3---1  2---1
  3---2  4---2  4---3
.
  3---4  4---3  4---2
  |   |  |   |  |   |
  1---2  1---2  1---3
.
  4---3
  | X |
  2---1
(End)

Links

Crossrefs

Row sums of A059441.
Cf. A005176 (unlabeled equivalent), A058891, A116539, A299353, A306017, A306021, A319189, A319190, A319612, A319729.

Programs

  • Mathematica
    Table[Sum[SeriesCoefficient[Product[1+Times@@x/@s,{s,Subsets[Range[n],{2}]}],Sequence@@Table[{x[i],0,k},{i,n}]],{k,0,n-1}],{n,1,9}] (* Gus Wiseman, Dec 19 2018 *)
  • PARI
    \\ See link for program file.
for(n=1, 10, print1(A295193(n), ", ")) \\ Andrew Howroyd, Aug 28 2019

Extensions

a(16)-a(18) from Andrew Howroyd, Aug 28 2019

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.

Links

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).
Cf. A001147, A058891, A319189, A319190, A319612, A319729, A322635, A322659, A322698, A322704.

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

A188445 T(n,k) is the number of (n*k) X k binary arrays with nonzero rows in decreasing order and n ones in every column.

Original entry on oeis.org

1, 2, 0, 5, 1, 0, 15, 8, 0, 0, 52, 80, 5, 0, 0, 203, 1088, 205, 1, 0, 0, 877, 19232, 11301, 278, 0, 0, 0, 4140, 424400, 904580, 67198, 205, 0, 0, 0, 21147, 11361786, 101173251, 24537905, 250735, 80, 0, 0, 0, 115975, 361058000, 15207243828, 13744869502
Offset: 1

Views

Author

R. H. Hardin, Mar 31 2011

Keywords

Examples

			Array begins:
============================================================================
n\k| 1 2 3   4       5          6             7              8             9
---+------------------------------------------------------------------------
1  | 1 2 5  15      52        203           877           4140         21147
2  | 0 1 8  80    1088      19232        424400       11361786     361058000
3  | 0 0 5 205   11301     904580     101173251    15207243828 2975725761202
4  | 0 0 1 278   67198   24537905   13744869502 11385203921707 ...
5  | 0 0 0 205  250735  425677958 1184910460297 ...
6  | 0 0 0  80  621348 5064948309 ...
7  | 0 0 0  15 1058139 ...
8  | 0 0 0   1 ...
...
Some solutions for 16 X 4:
  1 1 1 0    1 1 1 1    1 1 1 1    1 1 1 0    1 1 1 1
  1 0 1 1    1 1 0 1    1 1 0 0    1 0 1 1    1 1 0 0
  1 0 1 0    1 0 1 1    1 0 1 1    1 0 0 1    1 0 1 1
  1 0 0 1    1 0 0 0    1 0 0 0    1 0 0 0    1 0 0 0
  0 1 1 1    0 1 1 0    0 1 1 1    0 1 1 0    0 1 1 1
  0 1 0 1    0 1 0 0    0 1 0 0    0 1 0 1    0 1 0 0
  0 1 0 0    0 0 1 1    0 0 1 1    0 1 0 0    0 0 1 0
  0 0 0 0    0 0 0 0    0 0 0 0    0 0 1 1    0 0 0 1
  0 0 0 0    0 0 0 0    0 0 0 0    0 0 0 0    0 0 0 0
  0 0 0 0    0 0 0 0    0 0 0 0    0 0 0 0    0 0 0 0
  0 0 0 0    0 0 0 0    0 0 0 0    0 0 0 0    0 0 0 0
  0 0 0 0    0 0 0 0    0 0 0 0    0 0 0 0    0 0 0 0
  0 0 0 0    0 0 0 0    0 0 0 0    0 0 0 0    0 0 0 0
  0 0 0 0    0 0 0 0    0 0 0 0    0 0 0 0    0 0 0 0
  0 0 0 0    0 0 0 0    0 0 0 0    0 0 0 0    0 0 0 0
  0 0 0 0    0 0 0 0    0 0 0 0    0 0 0 0    0 0 0 0

Links

Crossrefs

Rows 1..5 are A000110, A002718, A060486, A188446, A188447.
Columns 5..6 are A331127, A331129.
Column sums are A319190.
Cf. A059443, A060487, A188392, A219585, A318361, A330942, A330964, A331039.

Programs

  • PARI
    WeighT(v)={Vec(exp(x*Ser(dirmul(v, vector(#v, n, (-1)^(n-1)/n))))-1, -#v)}
D(p, n, k)={my(v=vector(n)); for(i=1, #p, v[p[i]]++); WeighT(v)[n]^k/prod(i=1, #v, i^v[i]*v[i]!)}
T(n, k)={my(m=n*k+1, q=Vec(exp(intformal(O(x^m) - x^n/(1-x)))/(1+x))); if(n==0, 1, (-1)^m*sum(j=0, m, my(s=0); forpart(p=j, s+=(-1)^#p*D(p, n, k), [1, n]); s*q[#q-j])/2)} \\ Andrew Howroyd, Dec 16 2018

Formula

A(n,k) = 0 for n > 2^(k-1). - Andrew Howroyd, Jan 24 2020

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

Cf. A002829, A005176, A110100, A116539, A295193, A306017, A319189, A319190.

Formula

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

Extensions

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

A322635 Number of regular graphs with loops on n labeled vertices.

Original entry on oeis.org

2, 4, 4, 24, 78, 1908, 23368, 1961200, 75942758, 25703384940, 4184912454930, 4462909435830552, 2245354417775573206, 10567193418810168583576, 24001585002447984453495392, 348615956932626441906675011568, 2412972383955442904868321667433106, 162906453913051798826796439651249753404
Offset: 1

Views

Author

Gus Wiseman, Dec 21 2018

Keywords

Comments

A graph is regular if all vertices have the same degree. A loop adds 2 to the degree of its vertex.

Links

Crossrefs

Row sums of A333158.
Cf. A000666, A054921, A059441, A295193, A299353, A306017, A306021, A319189, A319190, A319612, A322659, A322661.

Programs

  • Mathematica
    Table[Sum[SeriesCoefficient[Product[1+Times@@x/@s,{s,Select[Tuples[Range[n],2],OrderedQ]}],Sequence@@Table[{x[i],0,k},{i,n}]],{k,0,2n}],{n,6}]
  • PARI
    for(n=1, 10, print1(A322635(n), ", ")) \\ See A295193 for script, Andrew Howroyd, Aug 28 2019

Extensions

a(11)-a(18) from Andrew Howroyd, Aug 28 2019

A319729 Regular triangle read by rows where T(n,k) is the number of labeled simple graphs on n vertices where all non-isolated vertices have degree k.

Original entry on oeis.org

1, 1, 1, 1, 3, 1, 1, 9, 7, 1, 1, 25, 37, 5, 1, 1, 75, 207, 85, 21, 1, 1, 231, 1347, 525, 591, 7, 1, 1, 763, 10125, 21385, 23551, 3535, 113, 1, 1, 2619, 86173, 180201, 1216701, 31647, 30997, 9, 1, 1, 9495, 819133, 12066705, 77636583, 66620631, 11485825, 286929, 955, 1
Offset: 1

Views

Author

Gus Wiseman, Dec 17 2018

Keywords

Examples

			Triangle begins:
  1
  1       1
  1       3       1
  1       9       7       1
  1      25      37       5       1
  1      75     207      85      21       1
  1     231    1347     525     591       7       1
  1     763   10125   21385   23551    3535     113       1
  1    2619   86173  180201 1216701   31647   30997       9       1

Links

Crossrefs

Row sums are A322555.
Cf. A000569, A005176, A058891, A059441, A295193, A301481, A306017, A306019, A306021, A319169, A319190, A319612.

Programs

  • Mathematica
    Table[If[k==0,1,Sum[Binomial[n,sup]*SeriesCoefficient[Product[1+Times@@x/@s,{s,Subsets[Range[sup],{2}]}],Sequence@@Table[{x[i],0,k},{i,sup}]],{sup,n}]],{n,8},{k,0,n-1}]

Formula

T(n,k) = Sum_{i=1..n} binomial(n,i)*A059441(i,k) for k > 0. - Andrew Howroyd, Dec 26 2020

A322698 Number of regular graphs with half-edges on n labeled vertices.

Original entry on oeis.org

1, 2, 4, 10, 40, 278, 3554, 84590, 3776280, 317806466, 50710452574, 15414839551538, 8964708979273634, 10008446308186072290, 21518891146915893435358, 89320970210116481106835986, 717558285660687970023516336792, 11176382741327158622885664697124082, 338202509574712032788035618665293979610
Offset: 0

Views

Author

Gus Wiseman, Dec 23 2018

Keywords

Comments

A graph is regular if all vertices have the same degree. A half-edge is like a loop except it only adds 1 to the degree of its vertex.

Examples

			The a(3) = 10 edge sets:
  {}
  {{1},{2,3}}
  {{3},{1,2}}
  {{2},{1,3}}
  {{1},{2},{3}}
  {{1,2},{1,3},{2,3}}
  {{1},{3},{1,2},{2,3}}
  {{1},{2},{1,3},{2,3}}
  {{2},{3},{1,2},{1,3}}
  {{1},{2},{3},{1,2},{1,3},{2,3}}

Links

Crossrefs

Row sums of A333157.
Cf. A058891, A059441, A116539, A283877, A295193, A319189, A319190, A319612, A319729.

Programs

  • Mathematica
    Table[Sum[SeriesCoefficient[Product[1+Times@@x/@s,{s,Union/@Select[Tuples[Range[n],2],OrderedQ]}],Sequence@@Table[{x[i],0,k},{i,n}]],{k,0,n-1}],{n,1,6}]
  • PARI
    for(n=1, 10, print1(A322698(n), ", ")) \\ See A295193 for script, Andrew Howroyd, Aug 28 2019

Extensions

a(10)-a(18) from Andrew Howroyd, Aug 28 2019

A322784 Number of multiset partitions of uniform multisets of size n whose union is an initial interval of positive integers.

Original entry on oeis.org

1, 1, 4, 8, 29, 59, 311, 892, 4983, 21863, 126813, 678626, 4446565, 27644538, 195561593, 1384705697, 10613378402, 82864870101, 686673571479, 5832742205547, 51897707277698, 474889512098459, 4514467567213008, 44152005855085601, 446355422070799305, 4638590359349994120
Offset: 0

Views

Author

Gus Wiseman, Dec 26 2018

Keywords

Comments

A multiset is uniform if all multiplicities are equal.
Also the number of factorizations into factors > 1 of primorial powers k in A100778 with sum of prime indices A056239(k) equal to n.
a(n) is the number of nonequivalent nonnegative integer matrices without zero rows or columns with equal column sums and total sum n up to permutation of rows. - Andrew Howroyd, Jan 11 2020

Examples

			The a(1) = 1 through a(4) = 29 multiset partitions:
  {{1}}   {{1,1}}     {{1,1,1}}       {{1,1,1,1}}
          {{1,2}}     {{1,2,3}}       {{1,1,2,2}}
         {{1},{1}}   {{1},{1,1}}      {{1,2,3,4}}
         {{1},{2}}   {{1},{2,3}}     {{1},{1,1,1}}
                     {{2},{1,3}}     {{1,1},{1,1}}
                     {{3},{1,2}}     {{1},{1,2,2}}
                    {{1},{1},{1}}    {{1,1},{2,2}}
                    {{1},{2},{3}}    {{1,2},{1,2}}
                                     {{1},{2,3,4}}
                                     {{1,2},{3,4}}
                                     {{1,3},{2,4}}
                                     {{1,4},{2,3}}
                                     {{2},{1,1,2}}
                                     {{2},{1,3,4}}
                                     {{3},{1,2,4}}
                                     {{4},{1,2,3}}
                                    {{1},{1},{1,1}}
                                    {{1},{1},{2,2}}
                                    {{1},{2},{1,2}}
                                    {{1},{2},{3,4}}
                                    {{1},{3},{2,4}}
                                    {{1},{4},{2,3}}
                                    {{2},{2},{1,1}}
                                    {{2},{3},{1,4}}
                                    {{2},{4},{1,3}}
                                    {{3},{4},{1,2}}
                                   {{1},{1},{1},{1}}
                                   {{1},{1},{2},{2}}
                                   {{1},{2},{3},{4}}

Links

Crossrefs

Row sums of A322786.
Cf. A001055, A005176, A056239, A072774, A100778, A219727, A295193, A306017 (unlabeled version), A319190, A319612, A322785, A322786, A322792.

Programs

  • Mathematica
    u[n_,k_]:=u[n,k]=If[n==1,1,Sum[u[n/d,d],{d,Select[Rest[Divisors[n]],#<=k&]}]];
Table[Sum[u[Array[Prime,d,1,Times]^(n/d),Array[Prime,d,1,Times]^(n/d)],{d,Divisors[n]}],{n,12}]

Formula

a(n) = Sum_{d|n} A001055(A002110(n/d)^d).
a(n) = Sum_{d|n} A219727(n/d, d). - Andrew Howroyd, Jan 11 2020

Extensions

a(14)-a(15) from Alois P. Heinz, Jan 16 2019
Terms a(16) and beyond from Andrew Howroyd, Jan 11 2020

A322659 Number of connected regular simple graphs on n labeled vertices.

Original entry on oeis.org

1, 1, 1, 4, 13, 146, 826, 44808, 1074557, 155741296, 10381741786, 6939251270348, 2203360264480750, 4186526735251514044, 3747344007864300197810, 35041787059621536192399824, 156277111373298355107598128061, 4142122641757597729416733678931968
Offset: 1

Views

Author

Gus Wiseman, Dec 22 2018

Keywords

Comments

A graph is regular if all vertices have the same degree.

Links

Crossrefs

Row sums of A324163.
Cf. A054921, A059441, A062740, A295193, A299353, A305078, A319190, A319612, A319729, A322635.

Programs

  • Mathematica
    csm[s_]:=With[{c=Select[Tuples[Range[Length[s]],2],And[OrderedQ[#],UnsameQ@@#,Length[Intersection@@s[[#]]]>0]&]},If[c=={},s,csm[Sort[Append[Delete[s,List/@c[[1]]],Union@@s[[c[[1]]]]]]]]];
Table[If[n==1,1,Length[Select[Subsets[Subsets[Range[n],{2}]],And[Union@@#==Range[n],SameQ@@Length/@Split[Sort[Join@@#]],Length[csm[#]]==1]&]]],{n,6}]

Extensions

a(8)-a(15) from Andrew Howroyd, Dec 23 2018
a(16)-a(18) from Andrew Howroyd, Sep 02 2019
Showing 1-10 of 20 results. Next

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

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