|
%I #11 Jul 26 2023 03:20:36
%S 4,14,16,22,44,50,52,68,70,76,134,152,158,160,206,212,214,230,232,238,
%T 404,458,476,482,484,620,638,644,646,692,698,700,716,718,724,1214,
%U 1376,1430,1448,1454,1456,1862,1916,1934,1940,1942
%N Numbers whose base-3 representation contains no 0's and exactly two 1's.
%t Select[Range[2000],DigitCount[#,3,0]==0&&DigitCount[#,3,1]==2&] (* _Harvey P. Dale_, May 31 2016 *)
%Y Cf. A007089.
%K nonn,base
%O 1,1
%A _Clark Kimberling_
|
