|
%I #12 Aug 30 2019 11:21:01
%S 1,1,2,2,2,2,4,4,6,6,10,10,14,14,24,28,32,32,62,62,92,102,184,184,254,
%T 254,474,506,686,686,1172,1172,1792,1906,3568,3794,5326,5326,10282,
%U 10618,14822,14822,25564,25564,35304,39432,76888,76888,100574,100574,197870,201622,282014
%N Number of maximal subsets of {1..n} containing no products of distinct elements.
%H Andrew Howroyd, <a href="/A325710/a325710.txt">PARI Program</a>
%e The a(1) = 1 through a(9) = 6 maximal subsets:
%e {1} {1} {1} {1} {1} {1} {1} {1} {1}
%e {2} {23} {234} {2345} {2345} {23457} {23457} {234579}
%e {2456} {24567} {23578} {235789}
%e {3456} {34567} {24567} {245679}
%e {25678} {256789}
%e {345678} {3456789}
%t fasmax[y_]:=Complement[y,Union@@(Most[Subsets[#]]&/@y)];
%t Table[Length[fasmax[Select[Subsets[Range[n]],Intersection[#,Times@@@Subsets[#,{2,n}]]=={}&]]],{n,0,10}]
%o (PARI) \\ See link for program file.
%o for(n=0, 30, print1(A325710(n), ", ")) \\ _Andrew Howroyd_, Aug 29 2019
%Y Subsets without products of distinct elements are A326117.
%Y Maximal product-free subsets are A326496.
%Y Subsets with products are A326076.
%Y Maximal subsets without sums of distinct elements are A326498.
%Y Maximal subsets without quotients are A326492.
%Y Maximal subsets without sums or products of distinct elements are A326025.
%Y Cf. A121269, A151897, A326116, A326489, A326497, A326024.
%K nonn
%O 0,3
%A _Gus Wiseman_, Jul 09 2019
%E Terms a(16) and beyond from _Andrew Howroyd_, Aug 29 2019
|
