A039173 Numbers whose base-11 representation has the same number of 1's and 10's.

0, 2, 3, 4, 5, 6, 7, 8, 9, 21, 22, 24, 25, 26, 27, 28, 29, 30, 31, 33, 35, 36, 37, 38, 39, 40, 41, 42, 44, 46, 47, 48, 49, 50, 51, 52, 53, 55, 57, 58, 59, 60, 61, 62, 63, 64, 66, 68, 69, 70, 71, 72, 73, 74, 75, 77, 79, 80, 81, 82, 83, 84, 85, 86, 88, 90, 91, 92, 93, 94

Offset

1,2

Links

G. C. Greubel, Table of n, a(n) for n = 1..5000

Mathematica

Select[Range[0, 100], DigitCount[#, 11, 1]==DigitCount[#, 11, 10]&] (* Harvey P. Dale, May 06 2017 *)

Prog

(PARI) isok(n) = my(d=digits(n, 11)); #select(x->(x==1), d) == #select(x->(x==10), d); \\ Michel Marcus, Nov 01 2017

Crossrefs

Sequence in context: A094280 A082323 A069571 * A103951 A342304 A098951

Adjacent sequences: A039170 A039171 A039172 * A039174 A039175 A039176

Keyword

nonn,base,easy

Author

Olivier Gérard

Status

approved