A187332 Complement of A187331.

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, 43, 45, 47, 48, 49, 52, 53, 55, 57, 58, 59, 62, 63, 65, 67, 68, 69, 72, 73, 75, 77, 78, 79, 82, 83, 85, 87, 88, 89, 92, 93, 95, 97, 98, 99, 102, 103, 105, 107, 108

Offset

1,1

Links

Table of n, a(n) for n=1..65.

Formula

From Chai Wah Wu, Jun 07 2016: (Start)

a(n) = a(n-1) + a(n-6) - a(n-7) for n > 7.

G.f.: x*(x^6 + x^5 + x^4 + 2*x^3 + 2*x^2 + x + 2)/(x^7 - x^6 - x + 1). (End)

Mathematica

t=Table[Sum[Floor[k*n/4], {k, 1, 4}], {n, 0, 200}] (* A187331 *)
Complement[Range[Length[t]], t]             (* A187332 *)

Crossrefs

Cf. A187331.

Sequence in context: A171217 A344591 A049468 * A326917 A001857 A091532

Adjacent sequences: A187329 A187330 A187331 * A187333 A187334 A187335

Keyword

nonn

Author

Clark Kimberling, Mar 08 2011

Status

approved