OFFSET
1,2
COMMENTS
A partition of n is a sequence p_1, ..., p_k for some k with p_1 >= p_2 >= ... >= p_k and p_1+...+p_k=n. A partition is graphical if it is the degree sequence of a simple graph (this requires that n be even). Some authors set a(0)=1 by convention.
LINKS
T. D. Noe, Table of n, a(n) for n = 1..860. [Terms 1 through 110 were computed by Tiffany M. Barnes and Carla D. Savage; terms 111 through 585 were computed by Axel Kohnert; terms 586 to 860 by Wang Kai, Jun 05 2016; a typo of a(547) in Number of Graphical Partitions is corrected by Wang Kai, Aug 03 2016]
Tiffany M. Barnes and Carla D. Savage, Efficient generation of graphical partitions Discrete Appl. Math. 78 (1997), no. 1-3, 17-26.
T. M. Barnes and C. D. Savage, A recurrence for counting graphical partitions, Electronic J. Combinatorics, 2 (1995).
K. Blum, Bounds on the Number of Graphical Partitions, arXiv:2103.03196 [math.CO], 2021. See Table on p. 7.
P. Erdõs and T. Gallai, Graphs with a given degree of vertices, Mat. Lapok, 11 (1960), 264-274.
P. Erdős and L. B. Richmond, On graphical partitions Combinatorica 13 (1993), no. 1, 57-63.
Axel Kohnert, Dominance Order and Graphical Partitions, Electronic J. Combinatorics, 11 (2004).
Gerard Sierksma and Han Hoogeveen, Seven criteria for integer sequences being graphic, J. Graph Theory 15 (1991), no. 2, 223-231.
Eric Weisstein's World of Mathematics, Graphical partition.
EXAMPLE
a(2)=2: the graphical partitions of 4 are 2+1+1 and 1+1+1+1, corresponding to the degree sequences of the graphs V and ||.
From Gus Wiseman, Oct 26 2018: (Start)
The a(1) = 1 through a(5) = 17 graphical partitions:
(11) (211) (222) (2222) (3322)
(1111) (2211) (3221) (22222)
(3111) (22211) (32221)
(21111) (32111) (33211)
(111111) (41111) (42211)
(221111) (222211)
(311111) (322111)
(2111111) (331111)
(11111111) (421111)
(511111)
(2221111)
(3211111)
(4111111)
(22111111)
(31111111)
(211111111)
(1111111111)
(End)
MATHEMATICA
<< MathWorld`Graphs`
Table[Count[RealizeDegreeSequence /@ Partitions[n], _Graph], {n, 2, 20, 2}]
(* second program *)
prptns[m_]:=Union[Sort/@If[Length[m]==0, {{}}, Join@@Table[Prepend[#, m[[ipr]]]&/@prptns[Delete[m, List/@ipr]], {ipr, Select[Prepend[{#}, 1]&/@Select[Range[2, Length[m]], m[[#]]>m[[#-1]]&], UnsameQ@@m[[#]]&]}]]];
strnorm[n_]:=Flatten[MapIndexed[Table[#2, {#1}]&, #]]&/@IntegerPartitions[n];
Table[Length[Select[strnorm[2*n], Select[prptns[#], UnsameQ@@#&]!={}&]], {n, 6}] (* Gus Wiseman, Oct 26 2018 *)
CROSSREFS
KEYWORD
nonn,nice
AUTHOR
STATUS
approved