A044824 Positive integers having distinct base-13 run lengths.

1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 14, 28, 42, 56, 70, 84, 98, 112, 126, 140, 154, 168, 169, 182, 183, 184, 185, 186, 187, 188, 189, 190, 191, 192, 193, 194, 197, 211, 225, 239, 253, 267, 281, 295, 309, 323, 337, 338, 352, 364, 365, 366, 367, 368, 369, 370, 371

Offset

1,2

Links

David A. Corneth, Table of n, a(n) for n = 1..10000 (first 1000 terms from Harvey P. Dale)

Example

338 = 200_13 is in the sequence as it has distinct run lengths of distinct digits (2, 1). - David A. Corneth, Jan 04 2021

Mathematica

Select[Range[400], Union[Tally[Length/@Split[IntegerDigits[#, 13]]][[All, 2]]] == {1}&] (* Harvey P. Dale, Sep 15 2020 *)

Crossrefs

Cf. A044813, A044814, A044815, A044816, A044817, A044818, A044819, A044820, A044821, A044822, A044823, A044824, A044825, A044826, A044827 (base 2 to base 16).

Sequence in context: A017905 A333598 A044962 * A048310 A043716 A296750

Adjacent sequences: A044821 A044822 A044823 * A044825 A044826 A044827

Keyword

nonn,base

Author

Clark Kimberling

Status

approved