|
Search: id:A103692
|
|
| |
|
| 1, 2, 4, 6, 11, 16, 24, 44, 59, 124, 122, 372, 357, 966, 898, 3926, 1634, 13660, 6207, 32656
(list; table; graph; listen)
|
|
|
OFFSET
|
2,2
|
|
|
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
|
Cf. A077078; A005648; A052307, A103692.
Sequence in context: A072951 A062766 A115269 this_sequence A114921 A103442 A056342
Adjacent sequences: A103689 A103690 A103691 this_sequence A103693 A103694 A103695
|
|
KEYWORD
|
nonn,tabl
|
|
AUTHOR
|
Wouter Meeussen (wouter.meeussen(AT)pandora.be), Feb 12 2005
|
|
EXTENSIONS
|
a(17) to a(21) from Robert G. Wilson v (rgwv(AT)rgwv.com), Feb 14 2005
|
|
|
Search completed in 0.002 seconds
|
