[go: up one dir, main page]

login
A031469
Numbers whose base-4 representation has 4 fewer 0's than 3's.
0
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
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
KEYWORD
nonn,base
STATUS
approved