Clark Kimberling, <a href="/A246358/b246358_1.txt">Table of n, a(n) for n = 1..1000</a>
Clark Kimberling, <a href="/A246358/b246358_1.txt">Table of n, a(n) for n = 1..1000</a>
proposed
approved
editing
proposed
editing
proposed
Numbers k such that d(r,k) = 1 and d(s,k) = 0, where d(x,k) = kth binary digit of x, r = {2*sqrt(2)}, s = {sqrt(3)}, and { } = fractional part.
2, 6, 12, 13, 18, 26, 29, 27, 31, 34, 35, 36, 39, 40, 43, 44, 48, 52, 66, 46, 50, 53, 65, 68, 71, 73, 77, 79, 80, 84, 87, 89, 93, 94, 96, 95, 97, 102, 104, 111, 113, 103, 110, 112, 114, 122, 118, 123, 124, 126, 130, 127, 132, 139, 133, 135, 142, 144, 143, 145, 151, 146, 152, 155, 159, 163, 166, 156, 160, 171, 174, 177, 179, 187, 191, 176, 180, 192, 195, 196, 202, 204, 197, 205, 206
Clark Kimberling, <a href="/A246358/b246358_1.txt">Table of n, a(n) for n = 1..1000</a>
{2*sqrt(2)} has binary digits 0, 1, 1, 0, 1, 0, 1, 0, 0, 0, 0, 0, 1,0,0,...
{1*sqrt(3)} has binary digits 1, 0, 1, 1, 1, 0, 1, 1, 0, 1, 1, 0, 0,1,1,..,
so that a(1) = 2 and a(2) = 13.
z = 200500; r = FractionalPart[Sqrt[2]]; s = FractionalPart[Sqrt[3]];
u = Flatten[{ConstantArray[0, -#[[2]]], #[[1]]}] &[RealDigits[r, 2, z][[1]]
v = Flatten[{ConstantArray[0, -#[[2]]], #[[1]]}] &[RealDigits[s, 2, z][[1]]
Numbers k such that d(r,k) = 1 and d(s,k) = 0, where d(x,k) = kth binary digit of x, r = {2*sqrt(2)}, s = {sqrt(3)}, and { } = fractional part.
{2*sqrt(2)} has binary digits 1,1,0,1,0,1,0,0,0,0,0,1,0,0,...
{1*sqrt(3)} has binary digits 1,0,1,1,1,0,1,1,0,1,1,0,1,1,..,
approved
editing
proposed
approved
editing
proposed