|
%I #13 Jun 26 2021 01:53:13
%S 0,1,3,4,5,6,8,9,10,11,13,14,15,16,18,19,27,30,31,33,34,35,36,38,39,
%T 40,41,43,44,45,46,48,49,50,51,53,54,55,56,58,59,60,61,63,64,65,66,68,
%U 69,72,80,81,83,84,85,86,88,89,90,91,93,94,95,96,98,99,100,101,103
%N Numbers whose base-10 representation has the same number of 2's and 7's.
%t dg27Q[n_]:=Module[{dc=DigitCount[n]},dc[[2]]==dc[[7]]]; Select[Range[ 0,110],dg27Q] (* _Harvey P. Dale_, Nov 19 2011 *)
%K nonn,base,easy
%O 1,3
%A _Olivier Gérard_
|
