OFFSET
1,2
COMMENTS
LINKS
Fausto A. C. Cariboni, Table of n, a(n) for n = 1..47
FORMULA
For n > 0, a(n) = A326117(n) - 1.
EXAMPLE
The a(6) = 28 subsets:
{} {2} {2,3} {2,3,4} {2,3,4,5}
{3} {2,4} {2,3,5} {2,4,5,6}
{4} {2,5} {2,4,5} {3,4,5,6}
{5} {2,6} {2,4,6}
{6} {3,4} {2,5,6}
{3,5} {3,4,5}
{3,6} {3,4,6}
{4,5} {3,5,6}
{4,6} {4,5,6}
{5,6}
MATHEMATICA
Table[Length[Select[Subsets[Range[2, n]], Intersection[#, Select[Times@@@Subsets[#, {2}], #<=n&]]=={}&]], {n, 10}]
PROG
(PARI)
a(n)={
my(recurse(k, ep)=
if(k > n, 1,
my(t = self()(k + 1, ep));
if(!bittest(ep, k),
forstep(i=n\k, 1, -1, if(bittest(ep, i), ep=bitor(ep, 1<<(k*i))));
t += self()(k + 1, ep);
);
t);
);
recurse(2, 2);
} \\ Andrew Howroyd, Aug 25 2019
CROSSREFS
KEYWORD
nonn
AUTHOR
Gus Wiseman, Jun 06 2019
EXTENSIONS
Terms a(21)-a(36) from Andrew Howroyd, Aug 25 2019
STATUS
approved