A190235 Positions of 1 in A190233; complement of A190234.

1, 2, 4, 5, 7, 10, 14, 15, 17, 18, 20, 23, 27, 28, 30, 31, 33, 36, 40, 41, 43, 44, 46, 47, 49, 53, 54, 56, 57, 59, 60, 62, 66, 67, 69, 70, 72, 73, 79, 80, 81, 82, 83, 85, 86, 92, 93, 94, 95, 96, 98, 99, 106, 107, 108, 109, 111, 112, 119, 120, 121, 122, 124, 125, 128, 132, 133, 134, 135, 138, 141, 145, 146, 147, 148, 151, 154, 158, 159, 160

Offset

1,2

Links

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

Mathematica

u = Sin[Pi/8]; v = Cos[Pi/8];
f[n_] := Floor[n*u + n*v] - Floor[n*u] - Floor[n*v]
t = Table[f[n], {n, 1, 120}] (* A190233 *)
Flatten[Position[t, 0]]      (* A190234 *)
Flatten[Position[t, 1]]      (* A190235 *)

Crossrefs

Cf. A190233, A190234.

Sequence in context: A062463 A056716 A223729 * A023181 A123065 A115334

Adjacent sequences: A190232 A190233 A190234 * A190236 A190237 A190238

Keyword

nonn

Author

Clark Kimberling, May 06 2011

Status

approved