|
%I #12 Jun 29 2021 02:20:42
%S 29,43,93,107,157,171,197,205,213,229,232,233,234,236,238,239,245,253,
%T 285,299,323,331,339,344,345,346,348,350,351,355,371,379,413,427,477,
%U 491,541,555,605,619,669,683,709,717,725,741,744,745,746,748,750,751
%N Numbers whose base-8 representation has the same nonzero number of 3's and 5's.
%t Select[Range[800],DigitCount[#,8,3]==DigitCount[#,8,5]>0&] (* _Harvey P. Dale_, Dec 07 2020 *)
%Y Cf. A007094.
%K nonn,base,easy
%O 1,1
%A _Olivier Gérard_
|
