|
%I #13 Jun 30 2021 01:54:59
%S 27,84,108,165,189,244,245,247,248,249,250,251,252,261,279,288,297,
%T 306,315,327,351,408,432,489,513,570,594,651,675,741,750,757,758,760,
%U 761,762,763,764,768,777,786,795,804,813,837,894,918,973,974,976,977
%N Numbers whose base-9 representation has the same nonzero number of 0's and 3's.
%t Select[Range[1000],DigitCount[#,9,0]==DigitCount[#,9,3]>0&] (* _Harvey P. Dale_, Sep 23 2018 *)
%Y Cf. A007095.
%K nonn,base,easy
%O 1,1
%A _Olivier Gérard_
|
