%I #16 Sep 12 2022 17:23:18
%S 38,52,102,116,166,180,230,244,262,270,278,286,302,304,305,306,307,
%T 309,311,318,358,372,388,396,404,412,416,417,418,419,421,423,428,444,
%U 486,500,550,564,614,628,678,692,742,756,774,782,790,798,814,816,817
%N Numbers whose base-8 representation has the same nonzero number of 4's and 6's.
%t okQ[n_]:=Module[{dc8=DigitCount[n,8]},dc8[[4]]==dc8[[6]]>0]; Select[ Range[ 1000],okQ] (* _Harvey P. Dale_, Nov 14 2011 *)
%t Select[Range[1000],DigitCount[#,8,4]==DigitCount[#,8,6]>0&] (* _Harvey P. Dale_, Sep 12 2022 *)
%Y Cf. A007094.
%K nonn,base,easy
%O 1,1
%A _Olivier Gérard_