A054952
Number of unlabeled semi-strong digraphs on n nodes with pairwise different components.
Original entry on oeis.org
1, 1, 6, 88, 5136, 1052154, 706474926, 1581054875274, 12140605885784816, 328173091958855376334, 31831409045512513121561226, 11234306828778006073392046869300, 14576263867446651299709243211339018934, 70075728362101598938266196294267261948879446
Offset: 1
-
m = 15;
A035512 = Cases[Import["https://oeis.org/A035512/b035512.txt", "Table"], {, }][[All, 2]];
gf = -1 + Product[(1 + x^n)^A035512[[n + 1]], {n, 1, m}];
CoefficientList[gf + O[x]^m , x] // Rest (* Jean-François Alcover, Aug 26 2019, after Andrew Howroyd *)
A054953
Number of unlabeled semi-strong digraphs on n nodes with an odd number of pairwise different components.
Original entry on oeis.org
1, 1, 5, 83, 5048, 1047013, 705422455, 1580348377261, 12139024826336632, 328160951350054991463, 31831080872414173375174213, 11234274997368911879051177335450, 14576252633139821208116086572516525403, 70075713785837731364265242597960381223077163
Offset: 1
-
m = 15;
A035512 = Cases[Import["https://oeis.org/A035512/b035512.txt", "Table"], {, }][[All, 2]];
gf = -Product[(1 - x^n)^A035512[[n + 1]], {n, 1, m}] + Product[(1 + x^n)^A035512[[n + 1]], {n, 1, m}];
CoefficientList[gf + O[x]^m , x]/2 // Rest (* Jean-François Alcover, Aug 26 2019, after Andrew Howroyd *)
A054954
Number of unlabeled semi-strong digraphs on n nodes with an even number of pairwise different components.
Original entry on oeis.org
0, 0, 1, 5, 88, 5141, 1052471, 706498013, 1581059448184, 12140608800384871, 328173098339746387013, 31831409094194340869533850, 11234306830091593156638822493531, 14576263867574000953696306880725802283
Offset: 1
-
m = 15;
A035512 = Cases[Import["https://oeis.org/A035512/b035512.txt", "Table"], {, }][[All, 2]];
gf = -2 + Product[(1 - x^n)^A035512[[n + 1]], {n, 1, m}] + Product[(1 + x^n)^A035512[[n + 1]], {n, 1, m}];
CoefficientList[gf + O[x]^m , x]/2 // Rest (* Jean-François Alcover, Aug 26 2019, after Andrew Howroyd *)
Showing 1-3 of 3 results.
Comments