A190240 Positions of 0 at A190239; complement of A190241.

5, 10, 15, 20, 21, 25, 26, 29, 30, 31, 34, 35, 36, 39, 40, 41, 42, 44, 45, 46, 47, 49, 50, 51, 52, 53, 54, 58, 63, 68, 73, 77, 78, 79, 82, 83, 84, 87, 88, 89, 92, 93, 94, 97, 98, 99, 100, 102, 103, 104, 105, 106, 107, 108, 116, 121, 126, 130, 131, 135, 136, 137, 140, 141, 142, 145, 146, 147, 150, 151, 152, 153, 154, 155, 156, 157

Offset: 1

Author

Clark Kimberling, May 06 2011

Keywords

• nonn

Links

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

Crossrefs

Cf. A190239, A190241.

Programs

Mathematica

u = Exp[Pi/2]; v = 1/u;
f[n_] := Floor[n*u + n*v] - Floor[n*u] - Floor[n*v]
t = Table[f[n], {n, 1, 120}] (*A190239*)
Flatten[Position[t, 0]]      (*A190240*)
Flatten[Position[t, 1]]      (*A190241*)