This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A103692 #11 Feb 04 2023 05:29:33 %S A103692 1,2,4,6,11,16,24,44,59,124,122,372,357,966,898,3926,1634,13660,6207, %T A103692 32656 %N A103692 Row sums of A103691. %t A103692 (* 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}] %Y A103692 Cf. A077078; A005648; A052307, A103692. %K A103692 nonn,more %O A103692 2,2 %A A103692 _Wouter Meeussen_, Feb 12 2005 %E A103692 a(17)-a(21) from _Robert G. Wilson v_, Feb 14 2005