A326781
No position of a 1 in the reversed binary expansion of n is a power of 2.
Original entry on oeis.org
0, 4, 16, 20, 32, 36, 48, 52, 64, 68, 80, 84, 96, 100, 112, 116, 256, 260, 272, 276, 288, 292, 304, 308, 320, 324, 336, 340, 352, 356, 368, 372, 512, 516, 528, 532, 544, 548, 560, 564, 576, 580, 592, 596, 608, 612, 624, 628, 768, 772, 784, 788, 800, 804, 816
Offset: 1
The binary indices of n are row n of A048793. The sequence of terms together with their binary indices begins:
0: {}
4: {3}
16: {5}
20: {3,5}
32: {6}
36: {3,6}
48: {5,6}
52: {3,5,6}
64: {7}
68: {3,7}
80: {5,7}
84: {3,5,7}
96: {6,7}
100: {3,6,7}
112: {5,6,7}
116: {3,5,6,7}
256: {9}
260: {3,9}
272: {5,9}
276: {3,5,9}
-
bpe[n_]:=Join@@Position[Reverse[IntegerDigits[n,2]],1];
Select[Range[100],!MemberQ[Length/@bpe/@bpe[#],1]&]
A340018
MM-numbers of labeled graphs with half-loops covering an initial interval of positive integers, without isolated vertices.
Original entry on oeis.org
1, 3, 13, 15, 39, 65, 141, 143, 145, 165, 195, 377, 429, 435, 611, 705, 715, 1131, 1363, 1551, 1595, 1833, 1885, 1937, 2021, 2117, 2145, 2235, 2365, 2397, 2409, 2431, 2465, 2805, 3055, 4089, 4147, 4785, 5655, 5811, 6063, 6149, 6235, 6351, 6409, 6721, 6815
Offset: 1
The sequence of terms together with their corresponding multisets of multisets (edge sets) begins:
1: {}
3: {{1}}
13: {{1,2}}
15: {{1},{2}}
39: {{1},{1,2}}
65: {{2},{1,2}}
141: {{1},{2,3}}
143: {{3},{1,2}}
145: {{2},{1,3}}
165: {{1},{2},{3}}
195: {{1},{2},{1,2}}
377: {{1,2},{1,3}}
429: {{1},{3},{1,2}}
435: {{1},{2},{1,3}}
611: {{1,2},{2,3}}
705: {{1},{2},{2,3}}
715: {{2},{3},{1,2}}
1131: {{1},{1,2},{1,3}}
The version with full loops is
A320461.
The version not necessarily covering an initial interval is
A340019.
MM-numbers of graphs with loops are
A340020.
A006450 lists primes of prime index.
A106349 lists primes of semiprime index.
A257994 counts prime prime indices.
A302242 is the weight of the multiset of multisets with MM-number n.
A302494 lists MM-numbers of sets of sets, with connected case
A328514.
A309356 lists MM-numbers of simple graphs.
A322551 lists primes of squarefree semiprime index.
A339112 lists MM-numbers of multigraphs with loops.
A339113 lists MM-numbers of multigraphs.
Cf.
A000040,
A000720,
A001222,
A005117,
A056239,
A076610,
A112798,
A289509,
A302590,
A305079,
A326754,
A326788.
-
primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
normQ[sys_]:=Or[Length[sys]==0,Union@@sys==Range[Max@@Max@@sys]];
Select[Range[1000],And[SquareFreeQ[#],normQ[primeMS/@primeMS[#]],And@@(PrimeQ[#]||(SquareFreeQ[#]&&PrimeOmega[#]==2)&/@primeMS[#])]&]
A326785
BII-numbers of uniform regular set-systems.
Original entry on oeis.org
0, 1, 2, 3, 4, 8, 9, 10, 11, 16, 32, 52, 64, 128, 129, 130, 131, 136, 137, 138, 139, 256, 288, 512, 528, 772, 816, 1024, 2048, 2052, 2320, 2340, 2580, 2592, 2868, 4096, 8192, 13376, 16384, 32768, 32769, 32770, 32771, 32776, 32777, 32778, 32779, 32896, 32897
Offset: 1
The sequence of all uniform regular set-systems together with their BII-numbers begins:
0: {}
1: {{1}}
2: {{2}}
3: {{1},{2}}
4: {{1,2}}
8: {{3}}
9: {{1},{3}}
10: {{2},{3}}
11: {{1},{2},{3}}
16: {{1,3}}
32: {{2,3}}
52: {{1,2},{1,3},{2,3}}
64: {{1,2,3}}
128: {{4}}
129: {{1},{4}}
130: {{2},{4}}
131: {{1},{2},{4}}
136: {{3},{4}}
137: {{1},{3},{4}}
138: {{2},{3},{4}}
Cf.
A000120,
A029931,
A048793,
A070939,
A319056,
A319189,
A321698,
A326031,
A326701,
A326783 (uniform),
A326784 (regular),
A326788.
-
bpe[n_]:=Join@@Position[Reverse[IntegerDigits[n,2]],1];
Select[Range[0,1000],SameQ@@Length/@bpe/@bpe[#]&&SameQ@@Length/@Split[Sort[Join@@bpe/@bpe[#]]]&]
Comments