A045000 - OEIS

%I #13 Aug 04 2023 15:47:20

%S 18,29,33,45,55,57,63,86,88,92,96,100,102,110,114,126,136,138,144,166,

%T 172,174,190,192,198,257,259,265,275,277,281,285,289,291,301,307,309,

%U 329,331,335,339,343,345,353,357,369,379,381

%N Numbers whose base-3 representation contains exactly two 0's and one 2.

%H Paolo Xausa, <a href="/A045000/b045000.txt">Table of n, a(n) for n = 1..1000</a>

%t A045000list[upto_]:=Select[Range[upto],DigitCount[#,3,0]==2&&DigitCount[#,3,2]==1&];A045000list[1000] (* _Paolo Xausa_, Aug 04 2023 *)

%Y Cf. A007089.

%K nonn,base

%O 1,1

%A _Clark Kimberling_