A190243 - OEIS

A190243

Positions of 0 in A190242; complement of A190244.

3, 5, 6, 10, 11, 13, 17, 18, 20, 22, 25, 26, 27, 29, 32, 33, 34, 37, 39, 40, 41, 44, 46, 47, 51, 52, 54, 58, 59, 61, 63, 66, 67, 68, 73, 74, 75, 78, 80, 81, 82, 85, 87, 88, 92, 93, 95, 97, 99, 100, 102, 104, 107, 108, 109, 114, 115, 116, 119, 121, 122, 123, 126, 128, 129, 133, 134, 136, 138, 141, 143, 145, 148, 149, 150, 153, 155, 156

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

OFFSET

1,1

LINKS

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

MATHEMATICA

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

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

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

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

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

CROSSREFS