cp's OEIS Frontend

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.

A326156 Number of nonempty subsets of {1..n} whose product is divisible by their sum.

This page as a plain text file.
%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