A190206 Positions of 1 in A190204; complement of A190205.

2, 4, 6, 7, 11, 12, 13, 14, 17, 19, 20, 21, 22, 24, 26, 28, 31, 33, 34, 35, 39, 40, 41, 42, 44, 46, 48, 51, 53, 55, 56, 60, 61, 62, 63, 66, 68, 70, 71, 73, 75, 77, 80, 82, 83, 84, 88, 90, 91, 93, 95, 97, 100, 102, 104, 105, 109, 110, 111, 112, 115, 117, 119, 120, 122, 124, 126, 129, 131, 132, 133, 137, 139, 140, 142, 144, 146, 149, 151

Offset

1,1

Links

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

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, A190205.

Sequence in context: A026398 A179003 A318785 * A189287 A189128 A070119

Adjacent sequences: A190203 A190204 A190205 * A190207 A190208 A190209

Keyword

nonn

Author

Clark Kimberling, May 05 2011

Status

approved