A188373 Positions of 1 in A188371; complement of A188372.

3, 10, 13, 17, 20, 27, 30, 34, 37, 44, 47, 51, 54, 58, 61, 68, 71, 75, 78, 85, 88, 92, 95, 99, 102, 109, 112, 116, 119, 126, 129, 133, 136, 143, 146, 150, 153, 157, 160, 167, 170, 174, 177, 184, 187, 191, 194, 198, 201, 208, 211, 215, 218, 225, 228, 232, 235, 242, 245, 249, 252, 256, 259, 266, 269, 273, 276, 283, 286

Offset

1,1

Comments

See A188014.

Links

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

Mathematica

r=2^(-1/2); k=6;
t=Table[Floor[n*r]-Floor[(n-k)*r]-Floor[k*r], {n, 1, 220}]   (*A188371*)
Flatten[Position[t, 0]]  (*A188372*)
Flatten[Position[t, 1]]  (*A188373*)

Crossrefs

Cf. A188014, A188371, A188373.

Sequence in context: A022415 A344619 A299983 * A190776 A298418 A229205

Adjacent sequences: A188370 A188371 A188372 * A188374 A188375 A188376

Keyword

nonn

Author

Clark Kimberling, Mar 29 2011

Status

approved