|
%I #13 Apr 24 2021 20:44:42
%S 364,1093,1822,2551,2956,3037,3118,3199,3244,3253,3262,3271,3276,3277,
%T 3278,3279,3281,3282,3283,3284,3289,3298,3307,3316,3361,3442,3523,
%U 3604,4009,4738,5467,6196,6925,7654,8383,9112,9517
%N Numbers having three 4's in base 9.
%t Select[Range[10000],Count[IntegerDigits[#,9],4]==3&] (* _Harvey P. Dale_, Dec 26 2010 *)
%t Select[Range@10000, DigitCount[#, 9, 4] == 3 &] (* _Robert G. Wilson v_, Dec 26 2010 *)
%Y Cf. A007095.
%K nonn,base
%O 1,1
%A _Clark Kimberling_
|
