A188046 Positions of 1 in A188044; complement of A188045.

1, 3, 5, 6, 8, 10, 11, 13, 15, 16, 17, 18, 20, 22, 23, 25, 27, 28, 29, 30, 32, 34, 35, 37, 39, 40, 42, 44, 45, 46, 47, 49, 51, 52, 54, 56, 57, 58, 59, 61, 63, 64, 66, 68, 69, 71, 73, 74, 75, 76, 78, 80, 81, 83, 85, 86, 87, 88, 90, 92, 93, 95, 97, 98, 99, 100, 102, 104, 105, 107, 109, 110, 112, 114, 115, 116, 117, 119

Offset

1,2

Comments

See A188014, A188044.

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}]   (* A188044 *)
Flatten[Position[t, 0]]  (* A188045 *)
Flatten[Position[t, 1]]  (* A188046 *)

Crossrefs

Cf. A188014, A188044, A188045.

Sequence in context: A189662 A186320 A247913 * A244644 A047220 A329845

Adjacent sequences: A188043 A188044 A188045 * A188047 A188048 A188049

Keyword

nonn

Author

Clark Kimberling, Mar 19 2011

Status

approved