|
|
A325868
|
|
Number of subsets of {1..n} containing n such that every ordered pair of distinct elements has a different quotient.
|
|
10
|
|
|
1, 2, 4, 6, 14, 24, 52, 84, 120, 240, 548, 688, 1784, 2600, 4236, 5796, 16200, 17568, 49968, 55648, 101360, 176792, 433736, 430032, 728784, 1360928, 2304840, 2990856, 8682912, 7877376, 25243200, 27946656, 46758912, 81457248, 121546416, 114388320, 442583952
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
EXAMPLE
|
The a(1) = 1 through a(5) = 14 subsets:
{1} {2} {3} {4} {5}
{1,2} {1,3} {1,4} {1,5}
{2,3} {2,4} {2,5}
{1,2,3} {3,4} {3,5}
{1,3,4} {4,5}
{2,3,4} {1,2,5}
{1,3,5}
{1,4,5}
{2,3,5}
{2,4,5}
{3,4,5}
{1,2,3,5}
{1,3,4,5}
{2,3,4,5}
|
|
MATHEMATICA
|
Table[Length[Select[Subsets[Range[n]], MemberQ[#, n]&&UnsameQ@@Divide@@@Subsets[#, {2}]&]], {n, 10}]
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|