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 A107754 #10 Jul 31 2015 02:52:28
%S A107754 1,1,1,2,1,6,1,8,4,18,1,60,1,66,20,128,1,600,1,612,68,1026,1,6000,16,
%T A107754 4098,256,8580,1,95226,1,32768
%N A107754 Number of subsets of the n-th roots of unity that sum to 1.
%F A107754 For prime p, a(p^i) = 2^(p^(i-1)-1).
%t A107754 << DiscreteMath`Combinatorica`; f[n_] := Plus @@ Table[ Count[ KSubsets[ Range[n], k], q_List /; Chop[ -1 + Plus @@ (E^((2.*Pi*I*q)/n))] === 0], {k, 0, n}]; Table[ f[n], {n, 24}] (* _Robert G. Wilson v_, Jun 03 2005 *)
%Y A107754 Cf. A103314 (number of subsets of the n-th roots of unity summing to zero) and A108417 (number of subsets of the n-th roots of unity summing to the absolute value of 1).
%K A107754 nonn,more
%O A107754 1,4
%A A107754 _T. D. Noe_, May 23 2005