A190199 Positions of 0 in A190198; complement of A190200.

2, 3, 6, 7, 9, 11, 14, 16, 18, 21, 22, 25, 26, 28, 29, 32, 33, 35, 37, 40, 41, 42, 44, 47, 48, 51, 52, 54, 58, 59, 61, 63, 66, 67, 70, 73, 74, 77, 78, 80, 82, 84, 85, 87, 89, 92, 93, 96, 97, 99, 100, 103, 104, 106, 108, 111, 113, 115, 118, 119, 122, 123, 125, 126, 129, 130, 132, 134, 137, 138, 141, 144, 145, 148, 149, 151, 153, 155

Offset

1,1

Links

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

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 *)

Prog

(PARI) is(n) = my(u = sqrt(3), v = 1/u); !(floor(n*u + n*v) - floor(n*u) - floor(n*v)) \\ Iain Fox, Dec 29 2017

Crossrefs

Cf. A190198, A190200.

Sequence in context: A181732 A338901 A341333 * A014873 A029467 A029515

Adjacent sequences: A190196 A190197 A190198 * A190200 A190201 A190202

Keyword

nonn

Author

Clark Kimberling, May 05 2011

Status

approved