|
%I #25 Oct 06 2023 11:00:58
%S 9,99,199,299,399,499,599,699,799,899,909,919,929,939,949,959,969,979,
%T 989,990,991,992,993,994,995,996,997,998,999,1999,2999,3999,4999,5999,
%U 6999,7999,8999,9099,9199,9299,9399,9499,9599,9699,9799,9899,9909,9919,9929,9939,9949,9959,9969,9979,9989,9990,9991,9992,9993,9994,9995,9996,9997,9998,9999
%N Numbers in which 9 outnumbers all other digits together.
%C Also numbers whose median of the digits is equal to 9. - _Stefano Spezia_, Oct 04 2023
%e 909 has more 9's than any other digit, whereas both 9009 and 9019 have as many other digits as 9's.
%t Select[Range[0, 10^4], Total@ #1 < First@ #2 & @@ TakeDrop[RotateLeft[#, 9] &@ DigitCount@ #, 9] &] (* _Michael De Vlieger_, Sep 25 2017 *)
%t Select[Range[10000],2*DigitCount[#,10, 9]>IntegerLength[#]&] (* _Harvey P. Dale_, Aug 04 2019 *)
%Y Subset of A292449.
%Y Numbers where n outnumbers any other digit: A292449, A292450, A292451, A292452, A292453, A292454, A292455, A292456, A292457, A292458.
%Y Numbers in which n outnumbers all other digits together: A292730, A292731, A292732, A292733, A292734, A292735, A292736, A292738.
%K nonn,base,easy
%O 1,1
%A _Halfdan Skjerning_, Sep 25 2017
|
