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

0, 1, 2, 4, 5, 6, 7, 9, 10, 11, 13, 14, 15, 16, 18, 19, 20, 22, 23, 24, 25, 35, 36, 37, 38, 40, 41, 42, 43, 45, 46, 47, 49, 50, 51, 52, 54, 55, 56, 58, 59, 60, 61, 63, 64, 65, 67, 68, 69, 70, 75, 81, 82, 83, 85, 86, 87, 88, 90, 91, 92, 94, 95, 96, 97, 99, 100, 101, 103

Offset

1,3

Links

Chris R. Rehmann, Table of n, a(n) for n = 1..10000

Mathematica

Select[Range[0, 25426], DigitCount[#, 9, 3]==DigitCount[#, 9, 8]&] (* Chris R. Rehmann, Mar 19 2026 *)

Prog

(MATLAB) x = 0:25426; d = dec2base(x, 9)-'0'; a = x(sum(d==3, 2)==sum(d==8, 2)); disp(regexprep(num2str(a), ' +', ', ')) % Chris R. Rehmann, Mar 19 2026

Crossrefs

Cf. A007095, A039382.

Cf. A039097, A039098, A039099, A039100.

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

Sequence in context: A023733 A380699 A154112 * A140102 A376956 A288866

Adjacent sequences: A039098 A039099 A039100 * A039102 A039103 A039104

Keyword

nonn,base,easy

Author

Olivier Gérard

Status

approved