A188319 Positions of 0 in A188318; complement of A188320.

4, 7, 14, 21, 24, 31, 38, 41, 48, 55, 62, 65, 72, 79, 82, 89, 96, 103, 106, 113, 120, 123, 130, 137, 140, 147, 154, 161, 164, 171, 178, 181, 188, 195, 202, 205, 212, 219, 222, 229, 236, 239, 246, 253, 260, 263, 270, 277, 280, 287, 294, 301, 304, 311, 318, 321, 328, 335, 342, 345, 352, 359, 362, 369, 376, 379, 386, 393, 400, 403, 410, 417, 420, 427

Offset

1,1

Comments

See A188014, A188318.

Links

G. C. Greubel, Table of n, a(n) for n = 1..10000

Mathematica

r=2^(-1/2); k=4;
t=Table[Floor[n*r]-Floor[(n-k)*r]-Floor[k*r], {n, 1, 220}]   (* A188318 *)
Flatten[Position[t, 0]]  (* A188319 *)
Flatten[Position[t, 1]]  (* A188320 *)

Crossrefs

Cf. A188014, A188318, A188320.

Sequence in context: A115759 A157615 A338551 * A171378 A147478 A147372

Adjacent sequences: A188316 A188317 A188318 * A188320 A188321 A188322

Keyword

nonn

Author

Clark Kimberling, Mar 28 2011

Status

approved