The OEIS is supported by the many generous donors to the OEIS Foundation.
%I #20 Apr 23 2023 22:22:55
%S 4,11,18,25,28,29,30,31,33,34,39,46,53,60,67,74,77,78,79,80,82,83,88,
%T 95,102,109,116,123,126,127,128,129,131,132,137,144,151,158,165,172,
%U 175,176,177,178,180,181,186,193,196,197,198,199
%N Numbers whose base-7 representation contains exactly one 4.
%t Select[Range[200],DigitCount[#,7,4]==1&] (* _Harvey P. Dale_, Jan 17 2011 *)
%Y Cf. A007093.
%K nonn,base,easy
%O 1,1
%A _Clark Kimberling_