OFFSET
1,2
MATHEMATICA
Select[Range[200], DigitCount[#, 12, 6] == DigitCount[#, 12, 0]&] (* Vincenzo Librandi, Oct 26 2016 *)
PROG
(Magma) [n: n in [1..120] | Multiplicity(S, 0) eq Multiplicity(S, 6) where S is {*d: d in Intseq(n, 12)*}]; // Vincenzo Librandi, Oct 26 2016
CROSSREFS
KEYWORD
nonn,base,easy
AUTHOR
STATUS
approved