%I #12 Sep 13 2023 07:22:24
%S 1,4,6,7,9,13,16,18,19,24,26,27,28,30,31,33,36,38,39,41,45,49,52,54,
%T 55,57,61,64,66,67,72,74,75,76,78,79,96,98,99,104,106,107,108,110,111,
%U 112,114,115,120,122,123,124,126,127,129,132
%N Numbers with a single 1 in their base 4 expansion.
%H Seiichi Manyama, <a href="/A023710/b023710.txt">Table of n, a(n) for n = 1..10000</a>
%t Select[ Range[ 160 ], (Count[ IntegerDigits[ #, 4 ], 1 ]==1)& ]
%t Select[Range[160],DigitCount[#,4,1]==1&] (* _Harvey P. Dale_, Feb 10 2023 *)
%K nonn,base,easy
%O 1,2
%A _Olivier GĂ©rard_
|