A190193 Positions of 1 in A190191; complement of A190192.

1, 2, 4, 7, 9, 11, 12, 14, 18, 19, 21, 24, 25, 26, 28, 31, 33, 35, 36, 38, 41, 42, 43, 45, 48, 50, 52, 53, 55, 59, 60, 62, 65, 66, 67, 69, 70, 72, 76, 77, 79, 82, 83, 84, 86, 89, 91, 93, 94, 96, 100, 101, 103, 106, 108, 110, 111, 113, 117, 118, 120, 123, 124, 125, 127, 130, 132, 134, 135, 137, 140, 141, 142, 144, 147, 149, 151, 152

Offset

1,2

Comments

See A190191.

Links

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

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

Sequence in context: A351799 A120749 A187978 * A353737 A138830 A122077

Adjacent sequences: A190190 A190191 A190192 * A190194 A190195 A190196

Keyword

nonn

Author

Clark Kimberling, May 05 2011

Status

approved