login
Triangular array read by rows. T(n,k) is the number of necklaces (turning over is not allowed) of n labeled black or white beads having exactly k black beads.
2

%I #10 Oct 11 2017 21:58:32

%S 0,1,1,1,2,1,2,6,6,2,6,24,36,24,6,24,120,240,240,120,24,120,720,1800,

%T 2400,1800,720,120,720,5040,15120,25200,25200,15120,5040,720,5040,

%U 40320,141120,282240,352800,282240,141120,40320,5040,40320,362880,1451520,3386880,5080320,5080320,3386880,1451520,362880,40320

%N Triangular array read by rows. T(n,k) is the number of necklaces (turning over is not allowed) of n labeled black or white beads having exactly k black beads.

%C Row sums are A066318.

%H Andrew Howroyd, <a href="/A219570/b219570.txt">Table of n, a(n) for n = 0..1274</a>

%F E.g.f.: log(1/(1 - (y + 1)*x)).

%F T(n, k) = (n-1)! * binomial(n, k) for n > 0. - _Andrew Howroyd_, Oct 11 2017

%e 0;

%e 1, 1;

%e 1, 2, 1;

%e 2, 6, 6, 2;

%e 6, 24, 36, 24, 6;

%e 24, 120, 240, 240, 120, 24;

%e 120, 720, 1800, 2400, 1800, 720, 120;

%e 720, 5040, 15120, 25200, 25200, 15120, 5040, 720;

%t nn=8;f[list_]:=Select[list,#>0&];Map[f,Drop[Range[0,nn]!CoefficientList[Series[Log[1/(1-(y+1)x)],{x,0,nn}],{x,y}],1]]//Grid

%o (PARI) T(n, k) = if(n>0, (n-1)! * binomial(n, k)); \\ _Andrew Howroyd_, Oct 11 2017

%K nonn,tabl

%O 0,5

%A _Geoffrey Critzer_, Nov 23 2012