A103442 Row sums of A103441. Number of two-colored bracelets of n beads with different sets of distances among the white beads.
1, 2, 4, 6, 11, 16, 27, 44, 73, 124, 199, 372, 613, 1142, 1874, 3926, 6209, 13660, 21539, 46240, 80142
Offset: 2
Programs
-
Mathematica
(* see A103441 *) Table[Length[Union[(dist[f[ #1], n]&)/@Flatten[Table[ListNecklaces[n, Join[1+0*Range[i], 0*Range[n-i]], Dihedral], {i, 1, n-1}], 1]]], {n, 2, 16}]
Extensions
a(21) & a(22) from Robert G. Wilson v, Aug 09 2010