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.

A326172 Number of nonempty subsets of {2..n} whose product is divisible by their sum.

This page as a plain text file.
%I A326172 #15 Jun 22 2019 08:11:11
%S A326172 0,0,1,2,3,6,12,21,34,69,140,278,561,1144,2367,4936,9503,19368,38202,
%T A326172 77911,156458,318911,651462,1329624,2596458,5144833,10494839,20500025,
%U A326172 40923643,83620258,164982516,335873558,651383048,1310551707,2655240565,5295397093,10338145110,21052407259,42748787713,86078893923,169349494068
%N A326172 Number of nonempty subsets of {2..n} whose product is divisible by their sum.
%e A326172 The a(2) = 1 through a(7) = 21 subsets:
%e A326172   {2}  {2}  {2}  {2}      {2}          {2}
%e A326172        {3}  {3}  {3}      {3}          {3}
%e A326172             {4}  {4}      {4}          {4}
%e A326172                  {5}      {5}          {5}
%e A326172                  {2,3,5}  {6}          {6}
%e A326172                  {3,4,5}  {3,6}        {7}
%e A326172                           {2,3,5}      {3,6}
%e A326172                           {2,4,6}      {2,3,5}
%e A326172                           {3,4,5}      {2,4,6}
%e A326172                           {4,5,6}      {2,5,7}
%e A326172                           {3,4,5,6}    {3,4,5}
%e A326172                           {2,3,4,5,6}  {3,4,7}
%e A326172                                        {3,5,7}
%e A326172                                        {4,5,6}
%e A326172                                        {2,3,6,7}
%e A326172                                        {2,5,6,7}
%e A326172                                        {3,4,5,6}
%e A326172                                        {3,5,6,7}
%e A326172                                        {2,3,4,5,6}
%e A326172                                        {2,3,4,5,7}
%e A326172                                        {2,4,5,6,7}
%t A326172 Table[Length[Select[Subsets[Range[2,n],{1,n}],Divisible[Times@@#,Plus@@#]&]],{n,0,10}]
%Y A326172 Cf. A053632, A057567, A057568, A059529, A063865, A301987, A325037, A325044, A326150, A326151, A326153/A326154, A326155, A326156, A326158, A326178.
%K A326172 nonn
%O A326172 0,4
%A A326172 _Gus Wiseman_, Jun 11 2019
%E A326172 a(21)-a(29) from _Alois P. Heinz_, Jun 13 2019
%E A326172 a(30)-a(40) from _Bert Dobbelaere_, Jun 22 2019