A190190 Positions of 1 in A190188; complement of A180189.

1, 2, 4, 5, 8, 12, 13, 15, 16, 18, 19, 24, 25, 26, 27, 29, 32, 35, 36, 37, 38, 40, 43, 47, 48, 50, 51, 54, 57, 59, 61, 62, 64, 65, 70, 71, 72, 73, 75, 76, 82, 83, 84, 86, 89, 93, 94, 95, 96, 97, 100, 103, 105, 106, 107, 108, 111, 114, 118, 119, 121, 122, 125, 128, 129, 130, 132, 133, 135, 140, 141, 142, 143, 144, 146, 151

Offset

1,2

Comments

See A190188.

Links

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

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

Sequence in context: A007379 A080588 A032850 * A063465 A287346 A344841

Adjacent sequences: A190187 A190188 A190189 * A190191 A190192 A190193

Keyword

nonn

Author

Clark Kimberling, May 05 2011

Status

approved