A190209 Positions of 1 in A190207; complement of A190208.

1, 2, 3, 4, 5, 6, 7, 9, 10, 12, 13, 15, 17, 18, 20, 21, 23, 26, 29, 34, 37, 43, 44, 46, 47, 48, 49, 50, 51, 52, 54, 55, 57, 58, 60, 63, 65, 66, 68, 71, 74, 82, 85, 86, 87, 88, 89, 91, 92, 94, 95, 96, 97, 99, 100, 102, 103, 105, 108, 111, 113, 116, 119, 128, 129, 130, 131, 132, 133, 134, 136, 137, 139, 140, 142, 144, 145, 147, 148, 150

Offset

1,2

Links

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

Mathematica

u = 7^(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}] (* A190207 *)
Flatten[Position[t, 0]]      (* A190208 *)
Flatten[Position[t, 1]]      (* A190209 *)

Crossrefs

Cf. A190207, A190208.

Sequence in context: A358992 A033104 A191325 * A048856 A067175 A225804

Adjacent sequences: A190206 A190207 A190208 * A190210 A190211 A190212

Keyword

nonn

Author

Clark Kimberling, May 05 2011

Status

approved