|
%I #11 Dec 29 2017 16:52:44
%S 2,3,6,7,9,11,14,16,18,21,22,25,26,28,29,32,33,35,37,40,41,42,44,47,
%T 48,51,52,54,58,59,61,63,66,67,70,73,74,77,78,80,82,84,85,87,89,92,93,
%U 96,97,99,100,103,104,106,108,111,113,115,118,119,122,123,125,126,129,130,132,134,137,138,141,144,145,148,149,151,153,155
%N Positions of 0 in A190198; complement of A190200.
%H G. C. Greubel, <a href="/A190199/b190199.txt">Table of n, a(n) for n = 1..5500</a>
%t u = 3^(1/2); v = 1/u;
%t f[n_] := Floor[n*u + n*v] - Floor[n*u] - Floor[n*v]
%t t = Table[f[n], {n, 1, 120}] (* A190198 *)
%t Flatten[Position[t, 0]] (* A190199 *)
%t Flatten[Position[t, 1]] (* A190200 *)
%o (PARI) is(n) = my(u = sqrt(3), v = 1/u); !(floor(n*u + n*v) - floor(n*u) - floor(n*v)) \\ _Iain Fox_, Dec 29 2017
%Y Cf. A190198, A190200.
%K nonn
%O 1,1
%A _Clark Kimberling_, May 05 2011
|
