A190205 Positions of 0 in A190204; complement of A190206.

1, 3, 5, 8, 9, 10, 15, 16, 18, 23, 25, 27, 29, 30, 32, 36, 37, 38, 43, 45, 47, 49, 50, 52, 54, 57, 58, 59, 64, 65, 67, 69, 72, 74, 76, 78, 79, 81, 85, 86, 87, 89, 92, 94, 96, 98, 99, 101, 103, 106, 107, 108, 113, 114, 116, 118, 121, 123, 125, 127, 128, 130, 134, 135, 136, 138, 141, 143, 145, 147, 148, 150, 152, 155, 156, 157

Offset

1,2

Links

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

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

Cf. A190204, A190206.

Sequence in context: A366473 A189127 A189288 * A192884 A134427 A065347

Adjacent sequences: A190202 A190203 A190204 * A190206 A190207 A190208

Keyword

nonn

Author

Clark Kimberling, May 05 2011

Status

approved