A188302 Positions of 1 in A188300; complement of A188301.

10, 17, 27, 34, 44, 51, 58, 68, 75, 85, 92, 99, 109, 116, 126, 133, 143, 150, 157, 167, 174, 184, 191, 198, 208, 215, 225, 232, 242, 249, 256, 266, 273, 283, 290, 297, 307, 314, 324, 331, 338, 348, 355, 365, 372, 382, 389, 396, 406, 413, 423, 430, 437, 447, 454, 464, 471, 481

Offset

1,1

Comments

See A188014, A188300.

Links

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

Mathematica

r=2^(-1/2); k=3;
t=Table[Floor[n*r]-Floor[n*r-k*r]-Floor[k*r], {n, 1, 220}]   (* A188300 *)
Flatten[Position[t, 0] ]   (* A188301 *)
Flatten[Position[t, 1] ]   (* A188302 *)

Crossrefs

Cf. A188014, A188300, A188301.

Sequence in context: A092599 A127853 A267737 * A190771 A034097 A034107

Adjacent sequences: A188299 A188300 A188301 * A188303 A188304 A188305

Keyword

nonn

Author

Clark Kimberling, Mar 27 2011

Status

approved