A039610 Numbers whose base-12 representation has the same nonzero number of 1's and 8's.
20, 97, 152, 176, 188, 200, 212, 224, 236, 240, 242, 243, 244, 245, 246, 247, 249, 250, 251, 260, 272, 284, 308, 385, 452, 529, 596, 673, 740, 817, 884, 961, 1028, 1105, 1153, 1164, 1166, 1167, 1168, 1169, 1170, 1171, 1173, 1174, 1175, 1177
Offset: 1
Programs
-
Mathematica
Select[Range[1200],DigitCount[#,12,1]==DigitCount[#,12,8]>0&] (* Harvey P. Dale, Mar 05 2014 *)