%I #12 Jul 01 2021 03:39:57
%S 0,3,4,18,21,22,24,27,28,53,68,83,103,108,111,112,126,129,130,132,135,
%T 136,144,147,148,162,165,166,168,171,172,188,193,233,248,293,311,317,
%U 318,321,322,341,356,377,392,398,408,411,412,416,422,443,463,473,491
%N Numbers whose base-6 representation has the same number of 1's, 2's and 5's.
%t dgQ[n_]:=Module[{c=DigitCount[n,6]},c[[1]]==c[[2]]==c[[5]]]; Select[Range[ 0,500],dgQ] (* _Harvey P. Dale_, Mar 29 2013 *)
%Y Cf. A007092.
%K nonn,base,easy
%O 1,2
%A _Olivier GĂ©rard_
|