A190235 - OEIS

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

(list; graph; refs; listen; history; text; internal format)

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