A043381 - OEIS

%I #15 Apr 24 2021 02:04:37

%S 3,9,15,18,19,20,22,23,27,33,39,45,51,54,55,56,58,59,63,69,75,81,87,

%T 90,91,92,94,95,99,105,108,109,110,112,113,114,115,116,118,119,120,

%U 121,122,124,125,132,133,134,136,137,138,139,140

%N Numbers having one 3 in base 6.

%H Robert Israel, <a href="/A043381/b043381.txt">Table of n, a(n) for n = 1..10000</a>

%p select(t -> numboccur(3,convert(t,base,6))=1, [$1..1000]); # _Robert Israel_, Aug 10 2020

%t Select[Range[200],DigitCount[#,6,3]==1&] (* _Harvey P. Dale_, Oct 20 2017 *)

%Y Cf. A007092.

%K nonn,base

%O 1,1

%A _Clark Kimberling_