A023718 Numbers with a single 3 in their base 4 expansion.

3, 7, 11, 12, 13, 14, 19, 23, 27, 28, 29, 30, 35, 39, 43, 44, 45, 46, 48, 49, 50, 52, 53, 54, 56, 57, 58, 67, 71, 75, 76, 77, 78, 83, 87, 91, 92, 93, 94, 99, 103, 107, 108, 109, 110, 112, 113, 114, 116, 117, 118, 120, 121, 122, 131, 135

Offset

1,1

Links

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

Mathematica

Select[ Range[ 140 ], (Count[ IntegerDigits[ #, 4 ], 3 ]==1)& ]
Select[Range[150], DigitCount[#, 4, 3]==1&] (* Harvey P. Dale, May 07 2023 *)

Crossrefs

Sequence in context: A113578 A337250 A043345 * A076184 A310191 A135137

Adjacent sequences: A023715 A023716 A023717 * A023719 A023720 A023721

Keyword

nonn,base,easy

Author

Olivier Gérard

Status

approved