login
A382395
Number of maximum sized subsets of {1..n} such that every pair of distinct elements has a different difference.
3
1, 1, 1, 3, 2, 6, 14, 2, 10, 26, 60, 110, 4, 22, 68, 156, 320, 584, 8, 24, 80, 206, 504, 1004, 1910, 3380, 10, 34, 98, 282, 760, 1618, 3334, 6360, 11482, 2, 22, 70, 214, 540, 1250, 2718, 5712, 10910, 20418, 2, 12, 30, 90, 230, 562, 1228, 2690, 5550, 11260, 21164, 2, 4, 6, 10, 18
OFFSET
0,4
COMMENTS
Also the number of maximum sized subsets of {1..n} such that every pair of (not necessarily distinct) elements has a different sum. In other words, a(n) is the number of Sidon sets with A143824(n) elements which are <= n.
EXAMPLE
The a(0) = 1 set is {}.
The a(1) = 1 set is {1}.
The a(2) = 1 set is {1,2}.
The a(3) = 3 sets: {1,2}, {1,3}, {2,3}.
The a(4) = 2 sets: {1,2,4}, {1,3,4}.
The a(5) = 6 sets: {1,2,4}, {1,2,5}, {1,3,4}, {1,4,5}, {2,3,5}, {2,4,5}.
The a(6) = 14 sets: {1,2,4}, {1,2,5}, {1,2,6}, {1,3,4}, {1,3,6}, {1,4,5}, {1,4,6}, {1,5,6}, {2,3,5}, {2,3,6}, {2,4,5}, {2,5,6}, {3,4,6}, {3,5,6}.
The a(7) = 2 sets: {1,2,5,7}, {1,3,6,7}.
PROG
(PARI)
a(n)={
local(best, count);
my(recurse(k, r, b, w)=
if(k > n, if(r>=best, if(r>best, best=r; count=0); count++),
self()(k+1, r, b, w);
b+=1<<k; if(!bitand(w, b<<k), self()(k+1, r+1, b, w + (b<<k)));
)
);
recurse(1, 0, 0, 0);
count;
}
CROSSREFS
Cf. A143823, A143824 (maximum size of set), A325879, A377410, A382396, A382398.
Sequence in context: A073883 A248982 A384110 * A333446 A289069 A074718
KEYWORD
nonn
AUTHOR
Andrew Howroyd, Mar 23 2025
STATUS
approved