A039421 Numbers whose base-10 representation has the same nonzero number of 3's and 8's.

38, 83, 138, 183, 238, 283, 308, 318, 328, 348, 358, 368, 378, 380, 381, 382, 384, 385, 386, 387, 389, 398, 438, 483, 538, 583, 638, 683, 738, 783, 803, 813, 823, 830, 831, 832, 834, 835, 836, 837, 839, 843, 853, 863, 873, 893, 938, 983, 1038, 1083

Offset

1,1

Links

Iain Fox, Table of n, a(n) for n = 1..10000

Mathematica

Select[Range[1000], DigitCount[#, 10, 3] == DigitCount[#, 10, 8] > 0 &] (* Wesley Ivan Hurt, Nov 21 2017 *)

Prog

(PARI) is(n) = { my(d = digits(n), i = 0, j = 0); for(x=1, length(d), if(d[x] == 3, i++, if(d[x] == 8, j++))); return(i==j && i!=0); } \\ Iain Fox, Nov 21 2017

Crossrefs

Sequence in context: A160846 A219999 A219997 * A043244 A044024 A133529

Adjacent sequences: A039418 A039419 A039420 * A039422 A039423 A039424

Keyword

nonn,base,easy

Author

Olivier Gérard

Status

approved