A325555 Number of necklace compositions of n with distinct differences up to sign.
1, 2, 2, 4, 5, 6, 10, 15, 19, 24, 39, 49, 78, 106, 155, 207, 313, 430, 608, 867, 1239, 1670, 2313, 3220, 4483
Offset: 1
Examples
The a(1) = 1 through a(8) = 15 necklace compositions: (1) (2) (3) (4) (5) (6) (7) (8) (11) (12) (13) (14) (15) (16) (17) (22) (23) (24) (25) (26) (112) (113) (33) (34) (35) (122) (114) (115) (44) (132) (124) (116) (133) (125) (142) (134) (223) (143) (1132) (152) (224) (233) (1124) (1142) (1322)
Links
Crossrefs
Programs
-
Mathematica
neckQ[q_]:=Array[OrderedQ[{q,RotateRight[q,#]}]&,Length[q]-1,1,And]; Table[Length[Select[Join@@Permutations/@IntegerPartitions[n],UnsameQ@@Abs[Differences[#]]&&neckQ[#]&]],{n,15}]
Comments