%I #12 Jun 26 2021 06:47:21
%S 0,1,3,5,6,7,8,9,10,11,12,14,16,17,18,19,20,21,26,33,34,36,38,39,40,
%T 41,42,43,46,55,56,58,60,61,62,63,64,65,66,67,69,71,72,73,74,75,76,77,
%U 78,80,82,83,84,85,86,87,88,89,91,93,94,95,96,97,98,99,100,102,104
%N Numbers whose base-11 representation has the same number of 2's and 4's.
%t okQ[n_]:=Module[{dc11=DigitCount[n,11]},dc11[[2]]==dc11[[4]]]
%t Select[Range[0,120],okQ] (* _Harvey P. Dale_, Feb 19 2011 *)
%K nonn,base,easy
%O 1,3
%A _Olivier GĂ©rard_
|