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

0, 2, 3, 4, 5, 6, 7, 9, 18, 20, 22, 23, 24, 25, 26, 27, 29, 30, 32, 33, 34, 35, 36, 37, 39, 40, 42, 43, 44, 45, 46, 47, 49, 50, 52, 53, 54, 55, 56, 57, 59, 60, 62, 63, 64, 65, 66, 67, 69, 70, 72, 73, 74, 75, 76, 77, 79, 81, 90, 92, 93, 94, 95, 96, 97, 99, 108, 128, 138

Offset

1,2

Links

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

Mathematica

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

Prog

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

Crossrefs

Sequence in context: A271950 A263482 A030153 * A083376 A044957 A297142

Adjacent sequences: A039123 A039124 A039125 * A039127 A039128 A039129

Keyword

nonn,base,easy

Author

Olivier Gérard

Status

approved