OFFSET
1,3
LINKS
Daniel Starodubtsev, Table of n, a(n) for n = 1..10000
MATHEMATICA
Select[Range[0, 200], DigitCount[#, 10, 3] == DigitCount[#, 10, 4] &] (* Vincenzo Librandi, Oct 27 2016 *)
PROG
(Magma) [n: n in [0..120] | Multiplicity(S, 3) eq Multiplicity(S, 4) where S is {*d: d in Intseq(n)*}]; // Vincenzo Librandi, Oct 27 2016
CROSSREFS
KEYWORD
nonn,base,easy
AUTHOR
STATUS
approved