|
%I #9 Dec 30 2017 03:29:08
%S 1,2,4,7,9,11,12,14,18,19,21,24,25,26,28,31,33,35,36,38,41,42,43,45,
%T 48,50,52,53,55,59,60,62,65,66,67,69,70,72,76,77,79,82,83,84,86,89,91,
%U 93,94,96,100,101,103,106,108,110,111,113,117,118,120,123,124,125,127,130,132,134,135,137,140,141,142,144,147,149,151,152
%N Positions of 1 in A190191; complement of A190192.
%C See A190191.
%H G. C. Greubel, <a href="/A190193/b190193.txt">Table of n, a(n) for n = 1..5550</a>
%t u = 2^(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}] (* A190191 *)
%t Flatten[Position[t, 0]] (* A190192 *)
%t Flatten[Position[t, 1]] (* A190193 *)
%Y Cf. A190191, A190192.
%K nonn
%O 1,2
%A _Clark Kimberling_, May 05 2011
|
