|
%I #13 Jun 10 2023 15:45:40
%S 17,71,107,127,137,147,157,167,170,172,173,174,175,176,178,179,187,
%T 197,217,271,317,371,417,471,517,571,617,671,701,710,712,713,714,715,
%U 716,718,719,721,731,741,751,761,781,791,817,871,917,971,1007,1027
%N Numbers whose base-10 representation has the same nonzero number of 1's and 7's.
%t Select[Range[1200],DigitCount[#,10,1]==DigitCount[#,10,7]>0&] (* _Harvey P. Dale_, Jun 10 2023 *)
%K nonn,base,easy
%O 1,1
%A _Olivier Gérard_
|
