%I #12 Jul 01 2021 03:40:01
%S 0,3,5,18,21,23,30,33,35,52,62,82,97,108,111,113,126,129,131,138,141,
%T 143,152,157,180,183,185,198,201,203,210,213,215,232,242,292,310,312,
%U 315,317,322,340,350,362,372,375,377,380,392,412,422,442,457,472,490
%N Numbers whose base-6 representation has the same number of 1's, 2's and 4's.
%t s124Q[n_]:=Module[{dc6=DigitCount[n,6]},dc6[[1]]==dc6[[2]]==dc6[[4]]]; Select[Range[0,500],s124Q] (* _Harvey P. Dale_, Oct 20 2015 *)
%Y Cf. A007092.
%K nonn,base,easy
%O 1,2
%A _Olivier GĂ©rard_
|