A049358 Digitally balanced numbers in base 7: equal numbers of 0's, 1's, ..., 6's.
123717, 123723, 123759, 123771, 123807, 123813, 124011, 124017, 124095, 124113, 124143, 124155, 124347, 124359, 124389, 124407, 124485, 124491, 124689, 124695, 124731, 124743, 124779, 124785, 125775, 125781, 125817, 125829, 125865, 125871, 126363, 126369
Offset: 1
Examples
123717 is 1023456 in base 7.
Links
- Vincenzo Librandi, Table of n, a(n) for n = 1..1000
Programs
-
Mathematica
Select[Range[126000], Length[Union[DigitCount[#, 7]]]==1&] (* Vincenzo Librandi, Apr 18 2013 *) FromDigits[IntegerDigits[#],7]&/@Select[FromDigits/@Permutations[Range[0,6]],IntegerLength[#]==7&] (* Harvey P. Dale, May 02 2025 *)
Comments