A188320 Positions of 1 in A188318; complement of A188319.

1, 2, 3, 5, 6, 8, 9, 10, 11, 12, 13, 15, 16, 17, 18, 19, 20, 22, 23, 25, 26, 27, 28, 29, 30, 32, 33, 34, 35, 36, 37, 39, 40, 42, 43, 44, 45, 46, 47, 49, 50, 51, 52, 53, 54, 56, 57, 58, 59, 60, 61, 63, 64, 66, 67, 68, 69, 70, 71, 73, 74, 75, 76, 77, 78, 80, 81, 83, 84, 85, 86, 87, 88, 90, 91, 92, 93, 94, 95, 97, 98, 99, 100, 101, 102, 104, 105, 107, 108, 109, 110, 111

Offset

1,2

Comments

See A188014, A188318.

Links

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

Mathematica

r=2^(-1/2); k=4;
t=Table[Floor[n*r]-Floor[(n-k)*r]-Floor[k*r], {n, 1, 220}]   (* A188318 *)
Flatten[Position[t, 0]]  (* A188319 *)
Flatten[Position[t, 1]]  (* A188320 *)

Crossrefs

Cf. A188014, A188318, A188319.

Sequence in context: A039191 A214329 A049386 * A039143 A039104 A184861

Adjacent sequences: A188317 A188318 A188319 * A188321 A188322 A188323

Keyword

nonn

Author

Clark Kimberling, Mar 28 2011

Status

approved