A338513
a(n) is the number of Chvátal-satisfying spurious graphical n-sequences.
Original entry on oeis.org
2, 3, 14, 31, 117, 278, 956, 2578, 8106
Offset: 5
A382021
Number of distinct degree sequences among all simple graphs with n vertices whose degrees are consecutive integers.
Original entry on oeis.org
1, 1, 2, 4, 9, 21, 50, 118, 272, 614, 1368, 3014
Offset: 0
For n = 5 there are 34 non-isomorphic graphs G on 5 vertices, and 24 of these have a consecutive degree sequence. However consecutive degree sequences 11222, 12223, and 22233 each correspond to 2 non-isomorphic graphs. Thus there are 21 distinct consecutive graphic sequences of length 5, and so a(5)=21.
- R. C. Read and R. J. Wilson, An Atlas of Graphs, Oxford University Press (1999).
A029892
Number of even graphical partitions of order 2n - number of odd graphical partitions of order 2n.
Original entry on oeis.org
1, 3, 8, 27, 88, 313, 1095, 4007, 14511
Offset: 1
TORSTEN.SILLKE(AT)LHSYSTEMS.COM
- R. A. Brualdi, H. J. Ryser, Combinatorial Matrix Theory, Cambridge Univ. Press, 1992.
A182096
Number of simple graphs with n unlabeled vertices with the degree of each vertex a prime number.
Original entry on oeis.org
0, 0, 1, 3, 4, 21, 60, 412, 2912, 48360, 974787, 56958187, 2313100395, 415655894822, 24672742242739, 14476157312171612, 1201604193795794073, 4552351087690759156124, 597350655972004799844521, 142501236416711876143177302627
Offset: 1
a(3) = 1 because there is a unique graph with 3 vertices each having prime degree, the triangle, with degree sequence (2,2,2).
a(4) = 3 because there are 3 graphs with 4 vertices each having prime degree: the 4-cycle (2,2,2,2); the complete graph K_4 with degree sequence (3,3,3,3); and two triangle graphs sharing a common edge, with degree sequence (3,3,2,2).
a(5) = 4 because there are 4 graphs with 5 vertices each having prime degree: the 5-cycle with degree sequence (2,2,2,2,2); a square graph sharing an edge with a triangle graph (G_13 in the linked-to illustration) with degree sequence (3,3,2,2,2); G_14 in the linked-to illustration with degree sequence (3,3,2,2,2); G_18 in the linked-to illustration with degree sequence (3,3,3,3,2).
-
a[n_Integer] := Count[And @@ PrimeQ /@ GraphData[#, "Degrees"] & /@ GraphData[n], True] (* Charles R Greathouse IV, Apr 11 2012 *)
show[n_Integer] := Map[Graph, GraphData[#, "EdgeRules"] & /@
Select[GraphData[n], And @@ PrimeQ /@ GraphData[#, "Degrees"] &]] (* Charles R Greathouse IV, Apr 12 2012 *)
Comments