A385890 Positions of first appearances in A245563 = run lengths of binary indices.
1, 2, 4, 6, 8, 12, 14, 16, 22, 24, 28, 30, 32, 44, 46, 48, 54, 56, 60, 62, 64, 86, 88, 92, 94, 96, 108, 110, 112, 118, 120, 124, 126, 128, 172, 174, 176, 182, 184, 188, 190, 192, 214, 216, 220, 222, 224, 236, 238, 240, 246, 248, 252, 254, 256, 342, 344, 348
Offset: 1
Keywords
Crossrefs
Programs
-
Mathematica
bpe[n_]:=Join@@Position[Reverse[IntegerDigits[n,2]],1]; q=Table[Length/@Split[bpe[n],#2==#1+1&],{n,0,1000}]; Select[Range[Length[q]-1],!MemberQ[Take[q,#-1],q[[#]]]&]
Comments