|
%I #17 Mar 05 2020 02:23:54
%S 1,1,6,19,43,66,80,66,43,19,6,1,1
%N Number of musical scales consisting of n notes.
%H H. Fripertinger, <a href="http://www.mat.univie.ac.at/~slc/opapers/s26fripert.html">Enumeration in musical theory</a>, Séminaire Lotharingien de Combinatoire, B26a (1991), 14 pp.
%H R. C. Read, <a href="http://dx.doi.org/10.1016/S0012-365X(96)00255-5">Combinatorial problems in theory of music</a>, Discrete Math. 167 (1997), 543-551.
%F Coefficient of x^n in cycle index Z(C_12; 1+x).
%t CycleIndexPolynomial[CyclicGroup[12], Table[1 + x^k, {k, 1, 12}]] // CoefficientList[#, x]& (* _Jean-François Alcover_, Nov 04 2016 *)
%K nonn,fini,full,nice
%O 0,3
%A _N. J. A. Sloane_
|
