OFFSET
1,1
COMMENTS
The ratio of 1's over 0's is 4:1. Subset of A143909.
LINKS
Zak Seidov, Table of n, a(n) for n = 1..2551
EXAMPLE
MATHEMATICA
f0[n_]:=DigitCount[n, 2, 0]; f1[n_]:=DigitCount[n, 2, 1]; f[n_]:=f1[n]/f0[n]; lst={}; Do[If[f[n]==3, AppendTo[lst, n]], {n, 8!}]; lst
ZS={}; Do[dc=DigitCount[n, 2]; If[dc[[1]]==4*dc[[2]], AppendTo[ZS, n]], {n, 10, 10^6}]; ZS (* Zak Seidov, Jul 28 2009 *)
d80Q[n_]:=Module[{idn2=DigitCount[n, 2]}, idn2[[1]]==4*idn2[[2]]]; Select[ Range[25000], d80Q] (* Harvey P. Dale, Mar 18 2012 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Vladimir Joseph Stephan Orlovsky, Jul 21 2009
EXTENSIONS
Edited by R. J. Mathar, Jul 25 2009
STATUS
approved