A190241 Positions of 1 in A190239; complement of A190240.

1, 2, 3, 4, 6, 7, 8, 9, 11, 12, 13, 14, 16, 17, 18, 19, 22, 23, 24, 27, 28, 32, 33, 37, 38, 43, 48, 55, 56, 57, 59, 60, 61, 62, 64, 65, 66, 67, 69, 70, 71, 72, 74, 75, 76, 80, 81, 85, 86, 90, 91, 95, 96, 101, 109, 110, 111, 112, 113, 114, 115, 117, 118, 119, 120, 122, 123, 124, 125, 127, 128, 129, 132, 133, 134, 138, 139, 143, 144, 148, 149, 164

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

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