|
%I #14 Jun 29 2021 02:19:50
%S 24,67,88,131,152,193,194,196,197,198,199,200,208,224,232,240,248,259,
%T 280,323,344,387,408,451,472,523,531,537,538,540,541,542,543,547,555,
%U 563,571,579,600,643,664,705,706,708,709,710,711,712,720,736,744,752
%N Numbers whose base-8 representation has the same nonzero number of 0's and 3's.
%t Select[Range[1000],DigitCount[#,8,0]==DigitCount[#,8,3]>0&] (* _Harvey P. Dale_, Jul 25 2012 *)
%Y Cf. A007094.
%K nonn,base,easy
%O 1,1
%A _Olivier Gérard_
|
