|
%I #18 Jul 25 2023 22:27:29
%S 0,3,10,12,31,37,39,94,112,118,120,283,337,355,361,363,850,1012,1066,
%T 1084,1090,1092,2551,3037,3199,3253,3271,3277,3279,7654,9112,9598,
%U 9760,9814,9832,9838,9840,22963,27337,28795,29281,29443
%N Numbers whose base-3 representation contains exactly one 0 and no 2's.
%t Select[Range[0,30000],DigitCount[#,3,0]==1&&DigitCount[#,3,2]==0&] (* _Harvey P. Dale_, Jun 20 2021 *)
%Y Cf. A007089.
%K nonn,base
%O 1,2
%A _Clark Kimberling_
%E a(1) = 0 inserted by _Georg Fischer_, Jun 27 2019
|
