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

Author

Clark Kimberling, May 05 2011

Keywords

• nonn

Comments

See A190188.

Links

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

Crossrefs

Cf. A190188, A190190.

Programs

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