OFFSET
1,1
MATHEMATICA
z = 300; u = N[GoldenRatio, z]; d = RealDigits[u, 2][[1]];
t[n_] := Take[d, n]; c[0, n_] := Count[t[n], 0]; c[1, n_] := Count[t[n], 1];
Table[{n, c[0, n], c[1, n]}, {n, 1, 100}]
u = Select[Range[z], c[0, #] == c[1, #] &] (* A293752 *)
u/2 (* A293753 *)
Select[Range[z], c[0, #] < c[1, #] &] (* A293754 *)
Select[Range[z], c[0, #] > c[1, #] &] (* A293755 *)
CROSSREFS
KEYWORD
nonn,easy,base
AUTHOR
Clark Kimberling, Oct 18 2017
STATUS
approved