A188298 Positions of 0 in A188297; complement of A188299.

1, 2, 4, 5, 7, 8, 11, 12, 14, 15, 18, 19, 21, 22, 24, 25, 28, 29, 31, 32, 35, 36, 38, 39, 41, 42, 45, 46, 48, 49, 52, 53, 55, 56, 59, 60, 62, 63, 65, 66, 69, 70, 72, 73, 76, 77, 79, 80, 82, 83, 86, 87, 89, 90, 93, 94, 96, 97, 100, 101, 103, 104, 106, 107, 110, 111, 113, 114, 117, 118, 120, 121, 123, 124, 127, 128, 130, 131, 134, 135, 137, 138, 140, 141, 144

Offset

1,2

Comments

See A188014.

Links

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

Mathematica

r=2^(-1/2); k=2;
t=Table[Floor[n*r]-Floor[n*r-k*r]-Floor[k*r], {n, 1, 220}]  (* A188297 *)
Flatten[Position[t, 0] ]   (* A188298 *)
Flatten[Position[t, 1] ]   (* A188299 *)

Crossrefs

Cf. A188014, A188297, A188299.

Sequence in context: A158850 A274427 A187576 * A289129 A368364 A290334

Adjacent sequences: A188295 A188296 A188297 * A188299 A188300 A188301

Keyword

nonn

Author

Clark Kimberling, Mar 27 2011

Status

approved