A188265 Positions of 1 in A188398; complement of A188399.

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

Offset

1,2

Comments

See A187950.

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+k*r]-Floor[n*r]-Floor[k*r], {n, 1, 220}]   (* A188398 *)
Flatten[Position[t, 0] ]   (* A188399 *)
Flatten[Position[t, 1] ]   (* A188265 *)

Crossrefs

Cf. A188398, A188399.

Sequence in context: A191276 A228919 A047377 * A032714 A032702 A359380

Adjacent sequences: A188262 A188263 A188264 * A188266 A188267 A188268

Keyword

nonn

Author

Clark Kimberling, Mar 30 2011

Status

approved