OFFSET
0,4
LINKS
Andrew Howroyd, PARI Program
EXAMPLE
The a(1) = 1 through a(7) = 16 subsets:
{1} {1,2} {1,2} {1,3} {1,2,4} {1,2,4} {1,2,4}
{1,3} {1,2,4} {1,2,5} {1,2,5} {1,2,5}
{2,3} {2,3,4} {1,3,5} {1,2,6} {1,2,6}
{2,3,4} {1,3,5} {1,2,7}
{2,4,5} {1,3,6} {1,3,6}
{3,4,5} {1,4,6} {1,4,6}
{2,3,4} {1,4,7}
{2,3,6} {2,3,4}
{2,4,5} {2,4,5}
{2,5,6} {2,4,7}
{3,4,5,6} {2,5,6}
{1,3,5,7}
{2,3,6,7}
{3,4,5,6}
{3,5,6,7}
{4,5,6,7}
MATHEMATICA
fasmax[y_]:=Complement[y, Union@@(Most[Subsets[#]]&/@y)];
Table[Length[fasmax[Select[Subsets[Range[n]], Intersection[#, Plus@@@Subsets[#, {2, n}]]=={}&]]], {n, 0, 10}]
PROG
(PARI) \\ See link for program file.
for(n=0, 25, print1(A326498(n), ", ")) \\ Andrew Howroyd, Aug 29 2019
CROSSREFS
KEYWORD
nonn
AUTHOR
Gus Wiseman, Jul 09 2019
EXTENSIONS
a(16)-a(40) from Andrew Howroyd, Aug 29 2019
a(41)-a(44) from Jinyuan Wang, Oct 11 2020
STATUS
approved