A023710 Numbers with a single 1 in their base 4 expansion.

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

Seiichi Manyama, Table of n, a(n) for n = 1..10000

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

Adjacent sequences: A023707 A023708 A023709 * A023711 A023712 A023713

Keyword

nonn,base,easy

Author

Olivier Gérard

Status

approved