A190241 - OEIS

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

(list; graph; refs; listen; history; text; internal format)

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