A031469 Numbers whose base-4 representation has 4 fewer 0's than 3's.

255, 511, 767, 895, 959, 991, 1007, 1015, 1019, 1021, 1022, 1535, 1791, 1919, 1983, 2015, 2031, 2039, 2043, 2045, 2046, 2559, 2815, 2943, 3007, 3039, 3055, 3063, 3067, 3069, 3070, 3327, 3455, 3519, 3551, 3567, 3575, 3579, 3581, 3582

Offset

1,1

Links

Table of n, a(n) for n=1..40.

Mathematica

Select[Range@4000, (s=#; Differences[Count[IntegerDigits[s, 4], #]&/@{0, 3}]=={4})&] (* Giorgos Kalogeropoulos, Jul 04 2021 *)
Select[Range[3600], DigitCount[#, 4, 0]==DigitCount[#, 4, 3]-4&] (* Harvey P. Dale, Oct 01 2021 *)

Crossrefs

Cf. A007090.

Sequence in context: A053339 A031197 A043348 * A045065 A158250 A045137

Adjacent sequences: A031466 A031467 A031468 * A031470 A031471 A031472

Keyword

nonn,base

Author

Clark Kimberling

Status

approved