This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A120753 #8 Apr 21 2021 03:47:18
%S A120753 1,4,5,7,8,11,14,15,18,21,22,24,25,28,29,31,32,35,38,39,41,42,45,46,
%T A120753 48,49,52,55,56,59,62,63,65,66,69,72,73,76,79,80,82,83,86,87,89,90,93,
%U A120753 96,97,100,103,104,106,107,110,113,114,117,120,121,123,124,127,128,130,131
%N A120753 Numbers k such that {rk} > c, where r = (1/2)^(1/2), c = 1/2 and { } denotes fractional part.
%C A120753 Positions of 1 in A083035.
%e A120753 (See A120243.)
%t A120753 r = Sqrt[1/2]; b = 2; c = 0;
%t A120753 f[n_] := Floor[(b*n + c)*r] - b*Floor[n*r] - Floor[c*r];
%t A120753 t = Table[f[n], {n, 1, 200}] (* A083035 *)
%t A120753 Flatten[Position[t, 0]] (* A120752 *)
%t A120753 Flatten[Position[t, 1]] (* A120753 *)
%Y A120753 Cf. A083035, A120752, A190762.
%K A120753 nonn
%O A120753 1,2
%A A120753 _Clark Kimberling_, Jul 01 2006