A190200 Positions of 1 in A190198; complement of A190199.

1, 4, 5, 8, 10, 12, 13, 15, 17, 19, 20, 23, 24, 27, 30, 31, 34, 36, 38, 39, 43, 45, 46, 49, 50, 53, 55, 56, 57, 60, 62, 64, 65, 68, 69, 71, 72, 75, 76, 79, 81, 83, 86, 88, 90, 91, 94, 95, 98, 101, 102, 105, 107, 109, 110, 112, 114, 116, 117, 120, 121, 124, 127, 128, 131, 133, 135, 136, 139, 140, 142, 143, 146, 147, 150, 152, 154, 157

Offset

1,2

Links

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

Mathematica

u = 3^(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}] (*A190198*)
Flatten[Position[t, 0]]      (*A190199*)
Flatten[Position[t, 1]]      (*A190200*)

Crossrefs

Cf. A190198, A190199.

Sequence in context: A340762 A092022 A346302 * A162902 A026491 A347476

Adjacent sequences: A190197 A190198 A190199 * A190201 A190202 A190203

Keyword

nonn

Author

Clark Kimberling, May 05 2011

Status

approved