|
%I #13 Jun 30 2021 01:53:47
%S 16,64,88,106,115,124,133,142,144,146,147,148,149,150,152,160,178,226,
%T 259,307,340,388,421,469,502,550,568,576,578,579,580,581,582,584,586,
%U 595,604,613,622,640,664,712,736,754,763,772,781,790,792,794,795,796
%N Numbers whose base-9 representation has the same nonzero number of 1's and 7's.
%t Select[Range[800],DigitCount[#,9,1]==DigitCount[#,9,7]>0&] (* _Harvey P. Dale_, Jan 30 2021 *)
%Y Cf. A007095.
%K nonn,base,easy
%O 1,1
%A _Olivier Gérard_
|
