A103692 Row sums of A103691.

1, 2, 4, 6, 11, 16, 24, 44, 59, 124, 122, 372, 357, 966, 898, 3926, 1634, 13660, 6207, 32656

Offset

2,2

Links

Table of n, a(n) for n=2..21.

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: A325591 A062766 A115269 * A114921 A103442 A238375

Adjacent sequences: A103689 A103690 A103691 * A103693 A103694 A103695

Keyword

nonn,more

Author

Wouter Meeussen, Feb 12 2005

Extensions

a(17)-a(21) from Robert G. Wilson v, Feb 14 2005

Status

approved