OFFSET
1,2
LINKS
Michael De Vlieger, Table of n, a(n) for n = 1..10000
MATHEMATICA
With[{s = Array[Sort@ Map[Length, Split@ IntegerDigits[#, 2]] &, 265]}, Map[Length@ Split@ IntegerDigits[#, 2] &, Values[PositionIndex@ s][[All, 1]] ]] (* Michael De Vlieger, Sep 03 2017 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Leroy Quet, Nov 03 2009
EXTENSIONS
Extended by Ray Chandler, Mar 11 2010
STATUS
approved