%I #12 Sep 13 2023 07:31:47
%S 40,94,112,118,120,122,124,130,148,202,256,274,280,282,284,286,292,
%T 310,328,334,336,338,340,346,352,354,356,358,360,362,366,368,370,372,
%U 374,376,382,388,390,392,394,400,418,436,442
%N Numbers with exactly 4 1's in their ternary expansion.
%H Seiichi Manyama, <a href="/A023695/b023695.txt">Table of n, a(n) for n = 1..10000</a>
%t Select[ Range[ 459 ], (Count[ IntegerDigits[ #, 3 ], 1 ]==4)& ]
%K nonn,base,easy
%O 1,1
%A _Olivier GĂ©rard_
|