|
|
A358247
|
|
Number of n-regular, N_0-weighted pseudographs on 2 vertices with total edge weight 7, up to isomorphism.
|
|
7
|
|
|
1, 8, 28, 71, 132, 217, 309, 417, 521, 638, 746, 866, 975, 1096, 1205, 1326, 1435, 1556, 1665, 1786, 1895, 2016, 2125, 2246, 2355, 2476, 2585, 2706, 2815, 2936, 3045, 3166, 3275, 3396, 3505, 3626, 3735, 3856, 3965, 4086, 4195, 4316, 4425, 4546, 4655
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
COMMENTS
|
Pseudographs are finite graphs with undirected edges without identity, where parallel edges between the same vertices and loops are allowed.
|
|
LINKS
|
|
|
EXAMPLE
|
For n = 2 the a(2) = 8 such pseudographs are: 1. two vertices connected by a 7-edge and a 0-edge, 2. two vertices connected by a 6-edge and a 1-edge, 3. two vertices connected by a 5-edge and a 2-edge, 4. two vertices connected by a 4-edge and a 3-edge, 5. two vertices where one has a 7-loop and the other one has a 0-loop, 6. two vertices where one has a 6-loop and the other one has a 1-loop, 7. two vertices where one has a 5-loop and the other one has a 2-loop, 8. two vertices where one has a 4-loop and the other one has a 3-loop.
|
|
PROG
|
(Julia)
using Combinatorics
function A(n::Int)
sum_total = 7
result = 0
for num_loops in 0:div(n, 2)
num_cross = n - 2 * num_loops
for sum_cross in 0:sum_total
for sum_loop1 in 0:sum_total-sum_cross
sum_loop2 = sum_total - sum_cross - sum_loop1
if sum_loop2 == sum_loop1
result +=
div(
npartitions_with_zero(sum_loop2, num_loops) *
(npartitions_with_zero(sum_loop2, num_loops) + 1),
2,
) * npartitions_with_zero(sum_cross, num_cross)
elseif sum_loop2 > sum_loop1
result +=
npartitions_with_zero(sum_loop2, num_loops) *
npartitions_with_zero(sum_loop1, num_loops) *
npartitions_with_zero(sum_cross, num_cross)
end
end
end
end
return result
end
function npartitions_with_zero(n::Int, m::Int)
if m == 0
if n == 0
return 1
else
return 0
end
else
return Combinatorics.npartitions(n + m, m)
end
end
print([A(n) for n in 1:45])
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|