login
Numbers with a single 2 in their ternary expansion.
4

%I #13 Jul 26 2023 13:54:12

%S 2,5,6,7,11,14,15,16,18,19,21,22,29,32,33,34,38,41,42,43,45,46,48,49,

%T 54,55,57,58,63,64,66,67,83,86,87,88,92,95,96,97,99,100,102,103,110,

%U 113,114,115,119,122,123,124,126,127,129,130,135,136,138,139,144,145

%N Numbers with a single 2 in their ternary expansion.

%H Amiram Eldar, <a href="/A023699/b023699.txt">Table of n, a(n) for n = 1..10000</a>

%t Select[ Range[ 162 ], (Count[ IntegerDigits[ #, 3 ], 2 ]==1)& ]

%t Select[Range[200],DigitCount[#,3,2]==1&] (* _Harvey P. Dale_, Jul 26 2023 *)

%Y Cf. A007089, A023693, A291907.

%K nonn,base,easy

%O 1,1

%A _Olivier GĂ©rard_