login
Numbers whose base-6 representation has the same nonzero number of 0's and 5's.
0

%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_