A190189 Positions of 0 in A190188; complement of A190190.

3, 6, 7, 9, 10, 11, 14, 17, 20, 21, 22, 23, 28, 30, 31, 33, 34, 39, 41, 42, 44, 45, 46, 49, 52, 53, 55, 56, 58, 60, 63, 66, 67, 68, 69, 74, 77, 78, 79, 80, 81, 85, 87, 88, 90, 91, 92, 98, 99, 101, 102, 104, 109, 110, 112, 113, 115, 116, 117, 120

Offset

1,1

Comments

See A190188.

Links

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

Mathematica

u = E; v = 1/E;
f[n_] := Floor[n*u + n*v] - Floor[n*u] - Floor[n*v]
t = Table[f[n], {n, 1, 120}] (* A190188 *)
Flatten[Position[t, 0]]      (* A190189 *)
Flatten[Position[t, 1]]      (* A190190 *)

Crossrefs

Cf. A190188, A190190.

Sequence in context: A344153 A334521 A108057 * A129414 A157319 A138933

Adjacent sequences: A190186 A190187 A190188 * A190190 A190191 A190192

Keyword

nonn

Author

Clark Kimberling, May 05 2011

Status

approved