A384878 Position of first appearance of n in the flattened version of the triangle A384877, whose m-th row lists the lengths of maximal anti-runs in the binary indices of m.
1, 6, 34, 178, 882, 4210, 19570, 89202, 400498, 1776754
Offset: 1
Examples
The set of binary indices of each nonnegative integer and its partition into anti-runs begins: 0: {} {{}} 1: {1} {{1}} 2: {2} {{2}} 3: {1,2} {{1},{2}} 4: {3} {{3}} 5: {1,3} {{1,3}} 6: {2,3} {{2},{3}} 7: {1,2,3} {{1},{2},{3}} The flattened version begins: {}, {1}, {2}, {1}, {2}, {3}, {1,3}, {2}, {3}, {1}, {2}, {3}. Of these sets, the first of length 2 is the sixth (starting with 0), so we have a(2) = 6.
Crossrefs
Programs
-
Mathematica
bpe[n_]:=Join@@Position[Reverse[IntegerDigits[n,2]],1]; mnrm[s_]:=If[Min@@s==1,mnrm[DeleteCases[s-1,0]]+1,0]; q=Join@@Table[Length/@Split[bpe[n],#2!=#1+1&],{n,0,100}]; Table[Position[q,i][[1,1]],{i,mnrm[q]}]
Comments