|
%I #13 May 02 2022 18:48:23
%S 18,78,128,150,161,172,183,194,198,200,201,202,203,204,206,207,208,
%T 216,227,238,260,320,381,441,502,562,623,683,744,804,848,858,860,861,
%U 862,863,864,866,867,868,870,881,892,903,914,936,947,958,986,1046
%N Numbers whose base-11 representation has the same nonzero number of 1's and 7's.
%t Select[Range[1200],DigitCount[#,11,1]==DigitCount[#,11,7]>0&] (* _Harvey P. Dale_, May 02 2022 *)
%K nonn,base,easy
%O 1,1
%A _Olivier Gérard_
|
