OFFSET
2,2
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}]
CROSSREFS
KEYWORD
hard,nonn
AUTHOR
Wouter Meeussen, Feb 06 2005
EXTENSIONS
a(21) & a(22) from Robert G. Wilson v, Aug 09 2010
STATUS
approved