|
%I #13 Sep 20 2023 14:25:12
%S 72,89,153,170,234,251,315,332,396,413,477,494,558,575,639,649,650,
%T 651,652,653,654,655,657,666,675,684,693,702,711,746,755,764,773,782,
%U 791,800,802,803,804,805,806,807,808,818,882,899,963,980,1044,1061
%N Numbers whose base-9 representation has the same nonzero number of 0's and 8's.
%t Select[Range[1200],DigitCount[#,9,0]==DigitCount[#,9,8]>0&] (* _Harvey P. Dale_, Sep 20 2023 *)
%Y Cf. A007095.
%K nonn,base,easy
%O 1,1
%A _Olivier Gérard_
|
