OFFSET
1,3
COMMENTS
EXAMPLE
The prime indices of binary indices of 281492156579880 are {{1,1},{1,2},{3,4},{4,4}}, with 2 connected components {{1,1},{1,2}} and {{3,4},{4,4}}, so a(281492156579880) = 2.
MATHEMATICA
csm[s_]:=With[{c=Select[Subsets[Range[Length[s]], {2}], Length[Intersection@@s[[#]]]>0&]}, If[c=={}, s, csm[Sort[Append[Delete[s, List/@c[[1]]], Union@@s[[c[[1]]]]]]]]];
bix[n_]:=Join@@Position[Reverse[IntegerDigits[n, 2]], 1];
prix[n_]:=If[n==1, {}, Flatten[Cases[FactorInteger[n], {p_, k_}:>Table[PrimePi[p], {k}]]]];
Table[Length[csm[prix/@bix[n]]], {n, 100}]
CROSSREFS
Positions of ones are A371291.
A001187 counts connected graphs.
A007718 counts non-isomorphic connected multiset partitions.
A048143 counts connected antichains of sets.
A070939 gives length of binary expansion.
A087086 lists numbers whose binary indices are pairwise indivisible.
A096111 gives product of binary indices.
KEYWORD
nonn
AUTHOR
Gus Wiseman, Apr 01 2024
STATUS
editing