|
%I #11 Dec 28 2017 03:40:14
%S 1,2,4,5,7,10,14,15,17,18,20,23,27,28,30,31,33,36,40,41,43,44,46,47,
%T 49,53,54,56,57,59,60,62,66,67,69,70,72,73,79,80,81,82,83,85,86,92,93,
%U 94,95,96,98,99,106,107,108,109,111,112,119,120,121,122,124,125,128,132,133,134,135,138,141,145,146,147,148,151,154,158,159,160
%N Positions of 1 in A190233; complement of A190234.
%H G. C. Greubel, <a href="/A190235/b190235.txt">Table of n, a(n) for n = 1..5400</a>
%t u = Sin[Pi/8]; v = Cos[Pi/8];
%t f[n_] := Floor[n*u + n*v] - Floor[n*u] - Floor[n*v]
%t t = Table[f[n], {n, 1, 120}] (* A190233 *)
%t Flatten[Position[t, 0]] (* A190234 *)
%t Flatten[Position[t, 1]] (* A190235 *)
%Y Cf. A190233, A190234.
%K nonn
%O 1,2
%A _Clark Kimberling_, May 06 2011
|
