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 A326156 #18 Jun 22 2019 08:11:15 %S A326156 0,1,2,4,5,10,19,34,64,129,267,541,1104,2253,4694,9804,18894,38539, %T A326156 76063,155241,311938,636120,1299869,2653853,5183363,10272289,20958448, %U A326156 40945577,81745769,167048919,329598054,671038751,1301431524,2618590422,5305742557,10582105199,20660489585,42075929255,85443680451,172057673225,338513788818 %N A326156 Number of nonempty subsets of {1..n} whose product is divisible by their sum. %H A326156 Bert Dobbelaere, <a href="/A326156/a326156.cpp.txt">C++ program</a> %e A326156 The a(1) = 1 through a(6) = 19 subsets: %e A326156 {1} {1} {1} {1} {1} {1} %e A326156 {2} {2} {2} {2} {2} %e A326156 {3} {3} {3} {3} %e A326156 {1,2,3} {4} {4} {4} %e A326156 {1,2,3} {5} {5} %e A326156 {1,2,3} {6} %e A326156 {1,4,5} {3,6} %e A326156 {2,3,5} {1,2,3} %e A326156 {3,4,5} {1,4,5} %e A326156 {1,2,3,4,5} {2,3,5} %e A326156 {2,4,6} %e A326156 {3,4,5} %e A326156 {4,5,6} %e A326156 {1,2,3,6} %e A326156 {1,3,5,6} %e A326156 {3,4,5,6} %e A326156 {1,2,3,4,5} %e A326156 {1,2,3,4,6} %e A326156 {2,3,4,5,6} %t A326156 Table[Length[Select[Subsets[Range[n],{1,n}],Divisible[Times@@#,Plus@@#]&]],{n,0,10}] %Y A326156 Cf. A053632, A057567, A057568, A059529, A063865, A301987, A326150, A326151, A326153/A326154, A326155, A326158, A326178, A326179, A326180. %K A326156 nonn %O A326156 0,3 %A A326156 _Gus Wiseman_, Jun 11 2019 %E A326156 a(21)-a(30) from _Alois P. Heinz_, Jun 13 2019 %E A326156 a(31)-a(40) from _Bert Dobbelaere_, Jun 22 2019