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

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

Cf. A190201, A190203.

Sequence in context: A334303 A184110 A138892 * A005523 A037084 A018935

Adjacent sequences: A190199 A190200 A190201 * A190203 A190204 A190205

Keyword

nonn

Author

Clark Kimberling, May 05 2011

Status

approved