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 A279933 #14 Sep 15 2019 20:04:19
%S A279933 1,3,5,6,8,11,13,14,16,19,21,24,26,27,29,32,34,35,37,39,40,42,45,47,
%T A279933 48,50,53,55,58,60,61,63,66,68,69,71,73,74,76,79,81,82,84,87,89,90,92,
%U A279933 94,95,97,100,102,103,105,108,110,113,115,116,118
%N A279933 Positive integers k such that {(k-1)*r} < 1/2, where r = golden ratio = (1 + sqrt(5))/2 and { } = fractional part.
%H A279933 Clark Kimberling, <a href="/A279933/b279933.txt">Table of n, a(n) for n = 1..5000</a>
%F A279933 a(n) = 1 + A005653(n-1) for n > 1.
%t A279933 r = GoldenRatio;
%t A279933 t = Table[If[FractionalPart[n r - r] < 1/2, 0, 1 ], {n, 1, 120}] (* {A078588(n-1)} *)
%t A279933 Flatten[Position[t, 0]] (* A279933 *)
%t A279933 Flatten[Position[t, 1]] (* A279934 *)
%Y A279933 Cf. A005653, A279934 (complement).
%K A279933 nonn,easy
%O A279933 1,2
%A A279933 _Clark Kimberling_, Dec 23 2016
%E A279933 New name from _Jianing Song_, Sep 12 2019