%I #20 Mar 12 2023 11:25:16
%S 30,41,66,77,102,113,138,149,174,181,182,183,184,186,192,198,204,227,
%T 233,239,245,247,248,249,250,257,282,293,318,329,354,365,390,397,398,
%U 399,400,402,408,414,420,443,449,455,461,463,464,465,466,473,498,509
%N Numbers whose base-6 representation has the same nonzero number of 0's and 5's.
%t ok6Q[n_]:=Module[{dc6=DigitCount[n,6]},dc6[[5]]==dc6[[6]]>0]; Select[Range[ 550],ok6Q] (* _Harvey P. Dale_, Mar 05 2011 *)
%t Select[Range[600],DigitCount[#,6,0]==DigitCount[#,6,5]>0&] (* _Harvey P. Dale_, Mar 12 2023 *)
%Y Cf. A007092.
%K nonn,base,easy
%O 1,1
%A _Olivier GĂ©rard_