|
%I #17 Oct 09 2022 12:12:41
%S 694,698,714,722,738,742,894,898,954,970,978,990,1014,1022,1054,1070,
%T 1102,1110,1138,1142,1178,1190,1202,1210,1294,1298,1334,1346,1358,
%U 1366,1394,1398,1454,1470,1478,1490,1634,1646,1654,1670,1726,1730,1758,1766,1778
%N Digitally balanced numbers in base 5: equal numbers of 0's, 1's, ..., 4's.
%H Alois P. Heinz, <a href="/A049356/b049356.txt">Table of n, a(n) for n = 1..10000</a> (first 96 terms from Vincenzo Librandi)
%e a(1) = 10234_5 = 694.
%e a(96) = 43210_5 = 2930.
%t Select[Range[5000], Length[Union[DigitCount[#, 5]]]==1&] (* _Vincenzo Librandi_, Apr 18 2013 *)
%Y Cf. A031443. A subsequence of A031946. The first 96 (=4*4!) terms of this sequence and of A031946 are identical. a(97) = 1001223344_5 = 1976724.
%K nonn,base
%O 1,1
%A _Harvey P. Dale_
%E Edited by _Rick L. Shepherd_, Jun 22 2003
|
