|
|
|
|
1, 2, 4, 6, 11, 16, 24, 44, 59, 124, 122, 372, 357, 966, 898, 3926, 1634, 13660, 6207, 32656
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
2,2
|
|
LINKS
|
|
|
MATHEMATICA
|
(* first do *) Needs["DiscreteMath`Combinatorica`"] (* then *) f[bi_] := DeleteCases[ bi*Range[ Length[bi]], 0]; vec[li_, l_]:= Abs[Plus @@ N[Exp[2*Pi*I*f[li]/l], 24]]; Plus @@@ Table[ Length[ Union[(vec[ #, n]&)/@ ListNecklaces[n, Join[1+0*Range[i], 0*Range[n-i]], Dihedral], SameTest ->(Abs[ #1 - #2] < 10^-18 &)]], {n, 2, 17}, {i, n-1}]
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,more
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|