%I #13 Apr 23 2024 15:11:49
%S 123717,123723,123759,123771,123807,123813,124011,124017,124095,
%T 124113,124143,124155,124347,124359,124389,124407,124485,124491,
%U 124689,124695,124731,124743,124779,124785,125775,125781,125817,125829,125865,125871,126363,126369
%N Digitally balanced numbers in base 7: equal numbers of 0's, 1's, ..., 6's.
%H Vincenzo Librandi, <a href="/A049358/b049358.txt">Table of n, a(n) for n = 1..1000</a>
%e 123717 is 1023456 in base 7.
%t Select[Range[126000], Length[Union[DigitCount[#, 7]]]==1&] (* _Vincenzo Librandi_, Apr 18 2013 *)
%Y Cf. A031443.
%K nonn,base
%O 1,1
%A _Harvey P. Dale_
|