A188299 Positions of 1 in A188297; complement of A188298.

3, 6, 9, 10, 13, 16, 17, 20, 23, 26, 27, 30, 33, 34, 37, 40, 43, 44, 47, 50, 51, 54, 57, 58, 61, 64, 67, 68, 71, 74, 75, 78, 81, 84, 85, 88, 91, 92, 95, 98, 99, 102, 105, 108, 109, 112, 115, 116, 119, 122, 125, 126, 129, 132, 133, 136, 139, 142, 143, 146, 149, 150, 153, 156, 157, 160, 163, 166, 167, 170, 173, 174, 177, 180

Offset

1,1

Comments

See A188014, A188297.

Links

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

Mathematica

r=2^(-1/2); k=2;
t=Table[Floor[n*r]-Floor[n*r-k*r]-Floor[k*r], {n, 1, 220}]  (* A188297 *)
Flatten[Position[t, 0] ]   (* A188298 *)
Flatten[Position[t, 1] ]   (* A188299 *)

Crossrefs

Cf. A188014, A188297, A188298.

Sequence in context: A247575 A338626 A289130 * A187577 A348237 A111359

Adjacent sequences: A188296 A188297 A188298 * A188300 A188301 A188302

Keyword

nonn

Author

Clark Kimberling, Mar 27 2011

Status

approved