%I #10 Apr 24 2021 20:45:42
%S 4,13,22,31,36,37,38,39,41,42,43,44,49,58,67,76,85,94,103,112,117,118,
%T 119,120,122,123,124,125,130,139,148,157,166,175,184,193,198,199,200,
%U 201,203,204,205,206,211,220,229,238,247,256
%N Numbers having one 4 in base 9.
%t Select[Range[300],DigitCount[#,9,4]==1&] (* _Harvey P. Dale_, Jul 28 2020 *)
%Y Cf. A007095.
%K nonn,base
%O 1,1
%A _Clark Kimberling_