|
%I #59 Mar 14 2024 18:12:13
%S 1,1,3,1,16,15,6,1,125,222,205,120,45,10,1,1296,3660,5700,6165,4945,
%T 2997,1365,455,105,15,1,16807,68295,156555,258125,331506,343140,
%U 290745,202755,116175,54257,20349,5985,1330,210,21,1,262144,1436568
%N Triangular array T(n,k) giving number of connected graphs with n labeled nodes and k edges (n >= 1, n-1 <= k <= n(n-1)/2).
%D Cowan, D. D.; Mullin, R. C.; Stanton, R. G. Counting algorithms for connected labelled graphs. Proceedings of the Sixth Southeastern Conference on Combinatorics, Graph Theory, and Computing (Florida Atlantic Univ., Boca Raton, Fla., 1975), pp. 225-236. Congressus Numerantium, No. XIV, Utilitas Math., Winnipeg, Man., 1975. MR0414417 (54 #2519). - From _N. J. A. Sloane_, Apr 06 2012
%D R. W. Robinson, Numerical implementation of graph counting algorithms, AGRC Grant, Math. Dept., Univ. Newcastle, Australia, 1977.
%H Seiichi Manyama, <a href="/A123527/b123527.txt"> Rows n = 1..40, flattened</a> (rows 1..14 from R. W. Robinson, rows 15..20 from Henrique G. G. Pereira)
%H T. Yanagita, T. Ichinomiya, <a href="https://arxiv.org/abs/1409.1979">Thermodynamic Characterization of Synchronization-Optimized Oscillator-Networks</a>, arXiv preprint arXiv:1409.1979 [nlin.AO], 2014.
%F For k >= C(n-1, 2) + 1 (not smaller!), T(n,k) = C(C(n,2),k) where C(n,k) is the binomial coefficient. See A084546. - _Geoffrey Critzer_, Dec 08 2011
%e Triangle begins:
%e n = 1
%e k = 0: 1
%e ****** total(1) = 1
%e n = 2
%e k = 1: 1
%e ****** total(2) = 1
%e n = 3
%e k = 2: 3
%e k = 3: 1
%e ****** total(3) = 4
%e n = 4
%e k = 3: 16
%e k = 4: 15
%e k = 5: 6
%e k = 6: 1
%e ****** total(4) = 38
%e n = 5
%e k = 4: 125
%e k = 5: 222
%e k = 6: 205
%e k = 7: 120
%e k = 8: 45
%e k = 9: 10
%e k = 10: 1
%e ****** total(5) = 728
%t nn = 8; a = Sum[(1 + y)^Binomial[n, 2] x^n/n!, {n, 0, nn}]; f[list_] := Select[list, # > 0 &]; Flatten[Map[f, Drop[Range[0, nn]! CoefficientList[Series[Log[a], {x, 0, nn}], {x, y}],1]]] (* _Geoffrey Critzer_, Dec 08 2011 *)
%t T[ n_, k_] := If[ n < 1, 0, Coefficient[ n! SeriesCoefficient[ Log[ Sum[ (1 + y)^Binomial[m, 2] x^m/m!, {m, 0, n}]], {x, 0, n}], y, n - 1 + k]]; (* _Michael Somos_, Aug 12 2017 *)
%Y See A062734 for another version with more information. Row sums give A001187.
%K nonn,tabf
%O 1,3
%A _N. J. A. Sloane_, Nov 13 2006
|
