|
%I
%S 0,1,2,3,4,5,6,9,10,11,12,13,14,15,16,17,18,21,22,23,24,25,26,27,28,
%T 29,30,33,34,35,36,37,38,39,40,41,42,45,46,47,48,49,50,51,52,53,54,57,
%U 58,59,60,61,62,63,64,65,66,69,70,71,72,73,74,75,76,77,78,81,82,83
%N Numbers n such that representation in base 12 has same number of 7's and 8's.
%t Select[Range[0,100],DigitCount[#,12,7]==DigitCount[#,12,8]&] (* _Harvey P. Dale_, May 15 2013 *)
%K nonn,base,easy
%O 1,3
%A _Olivier Gérard_
|
