%I #9 Jun 08 2016 00:30:49
%S 2,3,5,7,8,9,12,13,15,17,18,19,22,23,25,27,28,29,32,33,35,37,38,39,42,
%T 43,45,47,48,49,52,53,55,57,58,59,62,63,65,67,68,69,72,73,75,77,78,79,
%U 82,83,85,87,88,89,92,93,95,97,98,99,102,103,105,107,108
%N Complement of A187331.
%F From _Chai Wah Wu_, Jun 07 2016: (Start)
%F a(n) = a(n-1) + a(n-6) - a(n-7) for n > 7.
%F G.f.: x*(x^6 + x^5 + x^4 + 2*x^3 + 2*x^2 + x + 2)/(x^7 - x^6 - x + 1). (End)
%t t=Table[Sum[Floor[k*n/4],{k,1,4}],{n,0,200}] (* A187331 *)
%t Complement[Range[Length[t]], t] (* A187332 *)
%Y Cf. A187331.
%K nonn
%O 1,1
%A _Clark Kimberling_, Mar 08 2011