A188322 Positions of 0 in A188321; complement of A188323.

1, 4, 5, 7, 8, 11, 14, 15, 18, 21, 22, 24, 25, 28, 31, 32, 35, 38, 39, 41, 42, 45, 48, 49, 52, 55, 56, 59, 62, 63, 65, 66, 69, 72, 73, 76, 79, 80, 82, 83, 86, 89, 90, 93, 96, 97, 100, 103, 104, 106, 107, 110, 113, 114, 117, 120, 121, 123, 124, 127, 130, 131, 134, 137, 138, 140, 141, 144, 147, 148, 151, 154, 155, 158, 161, 162

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=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, A188323.

Sequence in context: A359380 A356160 A120753 * A139201 A049649 A050575

Adjacent sequences: A188319 A188320 A188321 * A188323 A188324 A188325

Keyword

nonn

Author

Clark Kimberling, Mar 28 2011

Status

approved