A190226 - OEIS

The OEIS is supported by the many generous donors to the OEIS Foundation.

A190226

Positions of 1 in A190224; complement of A190225.

1, 3, 9, 11, 15, 17, 23, 25, 31, 33, 39, 41, 45, 47, 53, 55, 61, 63, 69, 75, 77, 83, 85, 91, 93, 99, 105, 107, 113, 115, 121, 123, 127, 129, 135, 137, 143, 145, 151, 153, 157, 159, 165, 167, 173, 175, 181, 187, 189, 195, 197, 203, 205, 209, 211, 217, 219, 225, 227, 233, 235, 239, 241, 247, 249, 255, 257, 263, 269, 271, 277, 279, 285

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

OFFSET

1,2

LINKS

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

MATHEMATICA

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

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

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

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

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

PROG