It is ok to post!
# Name:Treasa Bency Biju Jose
# Date: 11/13/2020
# Assignment #18
-------------------------------------------------------------------------------------------------------------
1. 
AllKcomponentsGraphs := proc(n, k) local S, s, C; 
S := AllGraphs(n); 
C := {}; 
for s in S do 
  if nops(CCs(s)) = k then 
  C := C union {s}; 
  end if;
end do; 
C; 
end proc;

NuKcomponentsGraphs := proc(N, k) local n1; 
[seq(nops(AllKcomponentsGraphs(n1, k)), n1 = 1 .. N)]; 
end proc;

evalb(NuKcomponentsGraphs(6, 1) = NuConG(6));
                              true
NuKcomponentsGraphs(5, 2);
                       [0, 1, 3, 19, 230]

A-number := A323875

NuKcomponentsGraphs(5, 3);
                        [0, 0, 1, 6, 55]

A-number := A323876
-------------------------------------------------------------------------------------------------------------
2. 
AveNuCC := proc(n, k, M) local t, avg, i; 
avg; 
t := 0; 
for i to M do 
t := nops(CCs(RandGr(n, k))); 
end do; 
avg := t/M; 
end proc:

evalf(AveNuCC(30, 1, 1000));
                         0.02900000000

evalf(AveNuCC(30, 2, 1000));
                         0.02800000000

evalf(AveNuCC(30, 3, 1000));
                         0.02700000000

evalf(AveNuCC(30, 4, 1000));
                         0.02600000000

evalf(AveNuCC(30, 5, 1000));
                         0.02500000000
-------------------------------------------------------------------------------------------------------------