A190206 - OEIS

A190206

Positions of 1 in A190204; complement of A190205.

2, 4, 6, 7, 11, 12, 13, 14, 17, 19, 20, 21, 22, 24, 26, 28, 31, 33, 34, 35, 39, 40, 41, 42, 44, 46, 48, 51, 53, 55, 56, 60, 61, 62, 63, 66, 68, 70, 71, 73, 75, 77, 80, 82, 83, 84, 88, 90, 91, 93, 95, 97, 100, 102, 104, 105, 109, 110, 111, 112, 115, 117, 119, 120, 122, 124, 126, 129, 131, 132, 133, 137, 139, 140, 142, 144, 146, 149, 151

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

OFFSET

1,1

LINKS

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

MATHEMATICA

u = 6^(1/2); v = 1/u;

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

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

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

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

CROSSREFS