A039215 Numbers whose base-12 representation has the same number of 0's and 6's.
1, 2, 3, 4, 5, 7, 8, 9, 10, 11, 13, 14, 15, 16, 17, 19, 20, 21, 22, 23, 25, 26, 27, 28, 29, 31, 32, 33, 34, 35, 37, 38, 39, 40, 41, 43, 44, 45, 46, 47, 49, 50, 51, 52, 53, 55, 56, 57, 58, 59, 61, 62, 63, 64, 65, 67, 68, 69, 70, 71, 72, 85, 86, 87, 88, 89, 91, 92, 93, 94
Offset: 1
Programs
-
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
-
Mathematica
Select[Range[200], DigitCount[#, 12, 6] == DigitCount[#, 12, 0]&] (* Vincenzo Librandi, Oct 26 2016 *)