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