A037989 Numbers whose maximal base-7 run length is 2.

8, 16, 24, 32, 40, 48, 49, 56, 58, 59, 60, 61, 62, 65, 73, 81, 89, 97, 98, 106, 112, 113, 115, 116, 117, 118, 122, 130, 138, 146, 147, 155, 163, 168, 169, 170, 172, 173, 174, 179, 187, 195, 196, 204, 212, 220, 224, 225, 226, 227

Offset

1,1

Links

Table of n, a(n) for n=1..50.

Mathematica

Select[Range[300], Max[Length/@Split[IntegerDigits[#, 7]]]==2&] (* Harvey P. Dale, Mar 11 2017 *)

Crossrefs

Sequence in context: A344538 A244371 A144566 * A044848 A282148 A277780

Adjacent sequences: A037986 A037987 A037988 * A037990 A037991 A037992

Keyword

nonn,base

Author

Clark Kimberling

Status

approved