|
%I #5 Jun 14 2019 21:52:00
%S 0,1,2,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,
%T 27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,
%U 50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67
%N Number of subsets of {1..n} whose product is equal to their sum.
%C Same as A001477 (the nonnegative integers) with 3 removed.
%e The a(1) = 1 through a(9) = 10 subsets:
%e {1} {1} {1} {1} {1} {1} {1} {1} {1}
%e {2} {2} {2} {2} {2} {2} {2} {2}
%e {3} {3} {3} {3} {3} {3} {3}
%e {1,2,3} {4} {4} {4} {4} {4} {4}
%e {1,2,3} {5} {5} {5} {5} {5}
%e {1,2,3} {6} {6} {6} {6}
%e {1,2,3} {7} {7} {7}
%e {1,2,3} {8} {8}
%e {1,2,3} {9}
%e {1,2,3}
%t Table[Length[Select[Subsets[Range[n]],Times@@#==Plus@@#&]],{n,0,10}]
%Y Cf. A053632, A057567, A057568, A063865, A301987, A326156, A326158, A326179, A326180.
%K nonn,dumb
%O 0,3
%A _Gus Wiseman_, Jun 13 2019
|
