OFFSET
0,4
COMMENTS
A binary index of n is any position of a 1 in its reversed binary expansion. The binary indices of n are row n of A048793.
EXAMPLE
The binary indices of 27 are {1,2,4,5}, with maximal sparse subsets {{1,4},{1,5},{2,4},{2,5}}, so a(27) = 4.
MATHEMATICA
spars[S_]:=Select[Subsets[S], FreeQ[Differences[#], 1]&];
bpe[n_]:=Join@@Position[Reverse[IntegerDigits[n, 2]], 1];
maximize[sys_]:=Complement@@Prepend[Most[Subsets[#]]&/@sys, sys];
Table[Length[maximize[spars[bpe[n]]]], {n, 0, 100}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Gus Wiseman, Jul 02 2025
STATUS
approved
