The OEIS is supported by the many generous donors to the OEIS Foundation.
Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
%I #11 Feb 06 2019 17:19:25
%S 0,1,2,4,7,9,14,16,21,23,26,28,30,33,35,40,42,47,49,52,54,56,59,61,66,
%T 68,73,75,78,80,85,87,92,94,97,99,101,104,106,111,113,118,120,123,125,
%U 127,130,132,137,139,144,146,149,151,156,158,163,165,170,172,175,177
%N Solutions x to equation floor(x*r*floor(x/r)) = floor(x/r*floor(x*r)) when r=sqrt(3).
%H G. C. Greubel, <a href="/A090893/b090893.txt">Table of n, a(n) for n = 0..5000</a>
%F It seems that a(n) = 3*n + o(n); conjecture : a(n) = 3*n + O(1).
%t With[{r = Sqrt[3]}, Select[Range[0, 200], Floor[#*r*Floor[#/r]] == Floor[(#/r)*Floor[#*r]] &]] (* _G. C. Greubel_, Feb 06 2019 *)
%o (PARI) r=sqrt(3); for(n=0,200, if(floor(n*r*floor(n/r))==floor(n/r*floor(n*r)), print1(n, ", ")))
%Y Cf. A001519.
%K nonn
%O 0,3
%A _Benoit Cloitre_, Feb 15 2004