login
A037994
Numbers whose maximal base 8 run length is 3.
0
73, 146, 219, 292, 365, 438, 511, 512, 584, 586, 587, 588, 589, 590, 591, 658, 731, 804, 877, 950, 1023, 1024, 1097, 1168, 1169, 1171, 1172, 1173, 1174, 1175, 1243, 1316, 1389, 1462, 1535, 1536, 1609, 1682, 1752, 1753, 1754
OFFSET
1,1
MATHEMATICA
Select[Range[2000], Max[Length/@Split[IntegerDigits[#, 8]]]==3&] (* Harvey P. Dale, Nov 23 2013 *)
CROSSREFS
Sequence in context: A196655 A196656 A229157 * A138642 A142179 A124363
KEYWORD
nonn,base
STATUS
approved