OFFSET
1,2
COMMENTS
Also Heinz numbers of integer partitions whose parts have binary indices covering an initial interval.
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.
A prime index of n is a number m such that prime(m) divides n. The multiset of prime indices of n is row n of A112798.
EXAMPLE
The terms together with their binary indices of prime indices begin:
1: {}
2: {{1}}
4: {{1},{1}}
5: {{1,2}}
6: {{1},{2}}
8: {{1},{1},{1}}
10: {{1},{1,2}}
12: {{1},{1},{2}}
15: {{2},{1,2}}
16: {{1},{1},{1},{1}}
17: {{1,2,3}}
18: {{1},{2},{2}}
20: {{1},{1},{1,2}}
24: {{1},{1},{1},{2}}
25: {{1,2},{1,2}}
26: {{1},{2,3}}
30: {{1},{2},{1,2}}
32: {{1},{1},{1},{1},{1}}
MATHEMATICA
normQ[m_]:=Or[m=={}, Union[m]==Range[Max[m]]];
bpe[n_]:=Join@@Position[Reverse[IntegerDigits[n, 2]], 1];
prix[n_]:=If[n==1, {}, Flatten[Cases[FactorInteger[n], {p_, k_}:>Table[PrimePi[p], {k}]]]];
Select[Range[1000], normQ[Join@@bpe/@prix[#]]&]
CROSSREFS
For prime indices of prime indices we have A320456.
For binary indices of binary indices we have A326754.
The case with squarefree product of prime indices is A371448.
The connected components of this multiset system are counted by A371451.
A011782 counts multisets covering an initial interval.
A070939 gives length of binary expansion.
A131689 counts patterns by number of distinct parts.
KEYWORD
nonn
AUTHOR
Gus Wiseman, Mar 31 2024
STATUS
approved