A188301 Positions of 0 in A188300; complement of A188302.

1, 2, 3, 4, 5, 6, 7, 8, 9, 11, 12, 13, 14, 15, 16, 18, 19, 20, 21, 22, 23, 24, 25, 26, 28, 29, 30, 31, 32, 33, 35, 36, 37, 38, 39, 40, 41, 42, 43, 45, 46, 47, 48, 49, 50, 52, 53, 54, 55, 56, 57, 59, 60, 61, 62, 63, 64, 65, 66, 67, 69, 70, 71, 72, 73, 74, 76, 77, 78, 79, 80, 81, 82, 83, 84, 86, 87, 88, 89, 90, 91, 93, 94, 95, 96, 97, 98, 100, 101, 102, 103

Offset

1,2

Comments

See A188014, A188300.

Links

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

Mathematica

r=2^(-1/2); k=3;
t=Table[Floor[n*r]-Floor[n*r-k*r]-Floor[k*r], {n, 1, 220}]   (* A188300 *)
Flatten[Position[t, 0] ]   (* A188301 *)
Flatten[Position[t, 1] ]   (* A188302 *)

Crossrefs

Cf. A188014, A188300, A188302.

Sequence in context: A129350 A368365 A004746 * A332110 A178160 A052044

Adjacent sequences: A188298 A188299 A188300 * A188302 A188303 A188304

Keyword

nonn

Author

Clark Kimberling, Mar 27 2011

Status

approved