A190192 Positions of 0 in A190191; complement of A190193.

3, 5, 6, 8, 10, 13, 15, 16, 17, 20, 22, 23, 27, 29, 30, 32, 34, 37, 39, 40, 44, 46, 47, 49, 51, 54, 56, 57, 58, 61, 63, 64, 68, 71, 73, 74, 75, 78, 80, 81, 85, 87, 88, 90, 92, 95, 97, 98, 99, 102, 104, 105, 107, 109, 112, 114, 115, 116, 119, 121, 122, 126, 128, 129, 131, 133, 136, 138, 139, 143, 145, 146, 148, 150, 153, 155, 156, 157

Offset

1,1

Links

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

Mathematica

u = 2^(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}] (* A190191 *)
Flatten[Position[t, 0]]      (* A190192 *)
Flatten[Position[t, 1]]      (* A190193 *)

Crossrefs

Cf. A190191, A190193.

Sequence in context: A284590 A287724 A024705 * A187977 A120243 A304435

Adjacent sequences: A190189 A190190 A190191 * A190193 A190194 A190195

Keyword

nonn

Author

Clark Kimberling, May 05 2011

Status

approved