login

Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.

Numbers whose base-4 representation contains exactly three 1's and four 3's.
0

%I #15 May 21 2023 12:26:12

%S 5631,6015,6111,6135,6141,7551,7647,7671,7677,8031,8055,8061,8151,

%T 8157,8181,13695,13791,13815,13821,14175,14199,14205,14295,14301,

%U 14325,15711,15735,15741,15831,15837,15861,16215,16221

%N Numbers whose base-4 representation contains exactly three 1's and four 3's.

%t Reap[For[n=1, n<20000, n++, If[MatchQ[IntegerDigits[n, 4] // Tally // Sort, {___, {1, 3}, ___, {3, 4}}], Sow[n]]]][[2, 1]] (* _Jean-François Alcover_, Dec 07 2016 *)

%Y Cf. A007090.

%K nonn,base

%O 1,1

%A _Clark Kimberling_