%I #9 Apr 21 2018 06:46:46
%S 2,3,6,7,10,11,14,17,18,21,22,25,26,28,29,32,33,36,37,40,41,43,44,47,
%T 48,51,52,55,58,59,62,63,66,67,70,73,74,77,78,81,82,84,85,88,89,92,93,
%U 96,97,99,100,103,104,107,108,111,114,115,118,119,122,123,126,129,130,133,134,137,138,140,141,144,145,148,149
%N Positions of 0 in A190669; complement of A190671.
%C See A190669.
%H G. C. Greubel, <a href="/A190670/b190670.txt">Table of n, a(n) for n = 1..10000</a>
%t r = Sqrt[3]; b = 2; c = 0;
%t f[n_] := Floor[(b*n + c)*r] - b*Floor[n*r] - Floor[c*r];
%t t = Table[f[n], {n, 1, 200}] (* A190669 *)
%t Flatten[Position[t, 0]] (* A190670 *)
%t Flatten[Position[t, 1]] (* A190671 *)
%Y Cf. A190669, A190671.
%K nonn
%O 1,1
%A _Clark Kimberling_, May 16 2011
|