A190229 - OEIS

A190229

Positions of 1 in A190227; complement of A190228.

1, 3, 6, 8, 11, 13, 16, 17, 18, 21, 22, 23, 27, 28, 32, 33, 34, 37, 38, 39, 42, 43, 44, 48, 49, 51, 53, 54, 56, 58, 59, 61, 64, 66, 69, 71, 74, 76, 79, 81, 84, 85, 86, 90, 91, 95, 96, 100, 101, 102, 105, 106, 107, 110, 111, 112, 116, 117, 119, 121, 122, 124, 127, 129, 131, 132, 134, 137, 139, 142, 144, 147, 148, 149, 152, 153, 154, 158, 159

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

OFFSET

1,2

LINKS

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

MATHEMATICA

u = Sin[Pi/5]; v = Cos[Pi/5];

f[n_] := Floor[n*u + n*v] - Floor[n*u] - Floor[n*v]

t = Table[f[n], {n, 1, 120}] (* A190227 *)

Flatten[Position[t, 0]] (* A190228 *)

Flatten[Position[t, 1]] (* A190229 *)

CROSSREFS