A190212 - OEIS

A190212

Positions of 1 in A190210; complement of A190211.

1, 2, 6, 7, 8, 11, 12, 13, 14, 18, 19, 22, 24, 25, 28, 30, 31, 33, 35, 36, 39, 41, 42, 44, 45, 47, 48, 50, 53, 55, 56, 59, 61, 62, 65, 66, 67, 70, 72, 73, 76, 77, 78, 79, 82, 83, 84, 88, 89, 90, 94, 95, 96, 100, 101, 105, 106, 107, 110, 111, 112, 113, 117, 118, 121, 123, 124, 127, 129, 130, 132, 135, 138, 140, 141, 143, 144, 146, 147, 149, 152, 154

(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 = 8^(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}] (* A190210 *)

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

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

CROSSREFS