A188323 Positions of 1 in A188321; complement of A188322.

2, 3, 6, 9, 10, 12, 13, 16, 17, 19, 20, 23, 26, 27, 29, 30, 33, 34, 36, 37, 40, 43, 44, 46, 47, 50, 51, 53, 54, 57, 58, 60, 61, 64, 67, 68, 70, 71, 74, 75, 77, 78, 81, 84, 85, 87, 88, 91, 92, 94, 95, 98, 99, 101, 102, 105, 108, 109, 111, 112, 115, 116, 118, 119, 122, 125, 126, 128, 129, 132, 133, 135, 136, 139, 142, 143, 145, 146, 149, 150, 152, 153, 156

Offset

1,1

Comments

See A188014, A188321.

Links

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

Mathematica

r=2^(-1/2); k=5;
t=Table[Floor[n*r]-Floor[(n-k)*r]-Floor[k*r], {n, 1, 220}]   (*A188321*)
Flatten[Position[t, 0]]  (*A188322*)
Flatten[Position[t, 1]]  (*A188323*)

Crossrefs

Cf. A188014, A188321, A188322.

Sequence in context: A133555 A328727 A032938 * A090892 A120752 A236759

Adjacent sequences: A188320 A188321 A188322 * A188324 A188325 A188326

Keyword

nonn

Author

Clark Kimberling, Mar 28 2011

Status

approved