login
A023710
Numbers with a single 1 in their base 4 expansion.
2
1, 4, 6, 7, 9, 13, 16, 18, 19, 24, 26, 27, 28, 30, 31, 33, 36, 38, 39, 41, 45, 49, 52, 54, 55, 57, 61, 64, 66, 67, 72, 74, 75, 76, 78, 79, 96, 98, 99, 104, 106, 107, 108, 110, 111, 112, 114, 115, 120, 122, 123, 124, 126, 127, 129, 132
OFFSET
1,2
LINKS
MATHEMATICA
Select[ Range[ 160 ], (Count[ IntegerDigits[ #, 4 ], 1 ]==1)& ]
Select[Range[160], DigitCount[#, 4, 1]==1&] (* Harvey P. Dale, Feb 10 2023 *)
CROSSREFS
Sequence in context: A067888 A189142 A043337 * A310657 A010448 A005621
KEYWORD
nonn,base,easy
STATUS
approved