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

0, 2, 3, 4, 5, 6, 7, 17, 18, 20, 21, 22, 23, 24, 25, 27, 29, 30, 31, 32, 33, 34, 36, 38, 39, 40, 41, 42, 43, 45, 47, 48, 49, 50, 51, 52, 54, 56, 57, 58, 59, 60, 61, 63, 65, 66, 67, 68, 69, 70, 73, 89, 107, 116, 125, 134, 143, 152, 153, 155, 156, 157, 158, 159, 160, 162

Offset

1,2

Links

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

Mathematica

Select[Range[0, 200], DigitCount[#, 9, 1]==DigitCount[#, 9, 8]&] (* Harvey P. Dale, Aug 08 2012 *)

Prog

(PARI) isok(n) = my(d=digits(n, 9)); #select(x->(x==1), d) == #select(x->(x==8), d); \\ Michel Marcus, Nov 01 2017
(MATLAB) x = 0:24991; d = dec2base(x, 9)-'0'; a = x(sum(d==1, 2)==sum(d==8, 2)); disp(regexprep(num2str(a), ' +', ', ')) % Chris R. Rehmann, Mar 10 2026

Crossrefs

Cf. A007095, A039371.

Cf. A039084, A039085, A039086, A039087, A039088, A039089.

Cf. A031492, A039096, A039101, A039105, A039108, A039110, A039111.

Sequence in context: A065639 A325829 A171678 * A138988 A055520 A037342

Adjacent sequences: A039087 A039088 A039089 * A039091 A039092 A039093

Keyword

nonn,base,easy

Author

Olivier Gérard

Status

approved