A190202 - OEIS

A190202

Positions of 0 in A190201; complement of A190203.

1, 5, 7, 9, 10, 13, 14, 16, 17, 18, 19, 23, 26, 27, 30, 32, 34, 35, 36, 39, 43, 45, 47, 48, 51, 52, 54, 56, 57, 60, 61, 64, 65, 68, 70, 73, 74, 77, 79, 81, 83, 85, 86, 89, 90, 92, 94, 95, 98, 99, 102, 103, 106, 108, 111, 112, 115, 117, 119, 120, 121, 123, 124, 128, 130, 132, 133, 136, 137, 139, 140, 141, 146, 149, 150, 153, 155, 157

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

OFFSET

1,2

LINKS

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

MATHEMATICA

u = 5^(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}] (*A190201*)

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

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

CROSSREFS