|
%I #10 Jul 25 2023 22:27:14
%S 2,5,7,14,16,22,41,43,49,67,122,124,130,148,202,365,367,373,391,445,
%T 607,1094,1096,1102,1120,1174,1336,1822,3281,3283,3289,3307,3361,3523,
%U 4009,5467,9842,9844,9850,9868,9922,10084,10570,12028
%N Numbers whose base-3 representation contains no 0's and exactly one 2.
%t Select[Range[12500],DigitCount[#,3,0]==0&&DigitCount[#,3,2]==1&] (* _Harvey P. Dale_, Sep 06 2019 *)
%Y Cf. A007089.
%K nonn,base
%O 1,1
%A _Clark Kimberling_
|
