|
%I #9 Feb 10 2019 12:40:55
%S 1,0,0,1,1,1,4,8,13,22,36,56,86,131,197,294,437,647,955,1407,2070,
%T 3042,4467,6556,9618,14106,20684,30325,44455,65164,95515,139997,
%U 205189,300733,440760,645980,946745,1387538,2033552,2980332,4367906,6401495,9381865,13749810
%N Number of ways to split an n-cycle into connected subgraphs, all having at least three vertices.
%H <a href="/index/Rec#order_05">Index entries for linear recurrences with constant coefficients</a>, signature (3,-3,2,-2,1).
%F G.f.: (x^7-2*x^6+x^3-3*x^2+3*x-1)/((x^3+x-1)*(x-1)^2). - _Alois P. Heinz_, Feb 10 2019
%e The a(3) = 1 through a(7) = 8 partitions:
%e {{123}} {{1234}} {{12345}} {{123456}} {{1234567}}
%e {{123}{456}} {{123}{4567}}
%e {{126}{345}} {{1234}{567}}
%e {{156}{234}} {{1237}{456}}
%e {{1267}{345}}
%e {{127}{3456}}
%e {{1567}{234}}
%e {{167}{2345}}
%t cycedsprop[n_,k_]:=Union[Sort/@Join@@Table[1+Mod[Range[i,j]-1,n],{i,n},{j,i+k,n+i-1}]];
%t spsu[_,{}]:={{}};spsu[foo_,set:{i_,___}]:=Join@@Function[s,Prepend[#,s]&/@spsu[Select[foo,Complement[#,Complement[set,s]]=={}&],Complement[set,s]]]/@Cases[foo,{i,___}];
%t Table[Length[spsu[cycedsprop[n,2],Range[n]]],{n,15}]
%Y Cf. A000325, A001610, A001680, A005251, A066982, A306351, A323950, A323952, A323954.
%K nonn,easy
%O 0,7
%A _Gus Wiseman_, Feb 10 2019
%E More terms from _Alois P. Heinz_, Feb 10 2019
|
