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,2

Links

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

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

Crossrefs

Cf. A190239, A190240.

Sequence in context: A087066 A120518 A101888 * A225859 A020655 A188042

Adjacent sequences: A190238 A190239 A190240 * A190242 A190243 A190244

Keyword

nonn

Author

Clark Kimberling, May 06 2011

Status

approved