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

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

Sequence in context: A307151 A109046 A048725 * A199860 A101889 A115772

Adjacent sequences: A190237 A190238 A190239 * A190241 A190242 A190243

Keyword

nonn

Author

Clark Kimberling, May 06 2011

Status

approved