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

0, 2, 3, 4, 5, 6, 7, 9, 10, 19, 22, 24, 25, 26, 27, 28, 29, 31, 32, 33, 35, 36, 37, 38, 39, 40, 42, 43, 44, 46, 47, 48, 49, 50, 51, 53, 54, 55, 57, 58, 59, 60, 61, 62, 64, 65, 66, 68, 69, 70, 71, 72, 73, 75, 76, 77, 79, 80, 81, 82, 83, 84, 86, 87, 89, 99, 101, 102, 103

Offset

1,2

Links

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

Mathematica

Select[Range[0, 500], DigitCount[#, 11, 1] == DigitCount[#, 11, 8] &] (* G. C. Greubel, Nov 01 2017 *)

Prog

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

Crossrefs

Sequence in context: A059879 A132430 A049537 * A361808 A320144 A039270

Adjacent sequences: A039168 A039169 A039170 * A039172 A039173 A039174

Keyword

nonn,base,easy

Author

Olivier Gérard

Status

approved