|
%I #12 Sep 14 2023 08:10:51
%S 3,7,11,12,13,14,19,23,27,28,29,30,35,39,43,44,45,46,48,49,50,52,53,
%T 54,56,57,58,67,71,75,76,77,78,83,87,91,92,93,94,99,103,107,108,109,
%U 110,112,113,114,116,117,118,120,121,122,131,135
%N Numbers with a single 3 in their base 4 expansion.
%H Seiichi Manyama, <a href="/A023718/b023718.txt">Table of n, a(n) for n = 1..10000</a>
%t Select[ Range[ 140 ], (Count[ IntegerDigits[ #, 4 ], 3 ]==1)& ]
%t Select[Range[150],DigitCount[#,4,3]==1&] (* _Harvey P. Dale_, May 07 2023 *)
%K nonn,base,easy
%O 1,1
%A _Olivier Gérard_
|
