OFFSET
1,1
COMMENTS
It is easy to prove that [r[s*k]] - [s[r*k]] ranges from -2 to 2.
LINKS
G. C. Greubel, Table of n, a(n) for n = 1..10000 (terms 1..1000 from Clark Kimberling)
EXAMPLE
For k = 1 to 10, the values of [r[s*k]] - [s[r*k]] are 0, 1, 1, 0, -1, 1, 1, -1, 1, 0, so that a(1) = 5.
MATHEMATICA
z = 12000; r = Sqrt[2]; s = Sqrt[3];
u = Table[Floor[r*Floor[s*n]], {n, 1, z}];
v = Table[Floor[s*Floor[r*n]], {n, 1, z}];
Flatten[Position[u - v, -2]] (* A259584 *)
Take[Flatten[Position[u - v, -1]], 100] (* A259585 *)
Take[Flatten[Position[u - v, 0]], 100] (* A259725 *)
Take[Flatten[Position[u - v, 1]], 100] (* A259587 *)
Take[Flatten[Position[u - v, 2]], 100] (* A259586 *)
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Clark Kimberling, Jul 15 2015
STATUS
approved