login
A191152
[4n*e]-2[2n*e], where [ ]=floor.
4
0, 1, 0, 1, 0, 1, 0, 0, 1, 0, 1, 0, 1, 0, 1, 1, 0, 1, 0, 1, 0, 1, 0, 0, 1, 0, 1, 0, 1, 0, 1, 1, 0, 1, 0, 1, 0, 1, 0, 0, 1, 0, 1, 0, 1, 0, 1, 1, 0, 1, 0, 1, 0, 1, 0, 0, 1, 0, 1, 0, 1, 0, 1, 1, 0, 1, 0, 1, 0, 1, 1, 0, 1, 0, 1, 0, 1, 0, 0, 1, 0, 1, 0, 1, 0, 1, 1, 0, 1, 0, 1, 0, 1, 0, 0, 1, 0, 1, 0, 1, 0, 1, 1, 0, 1, 0, 1, 0, 1, 0, 0, 1, 0, 1, 0, 1, 0, 1, 1, 0, 1, 0, 1, 0, 1, 0, 0, 1, 0, 1, 0
OFFSET
1
MATHEMATICA
f[n_] := Floor[4 n*E] - 2*Floor[2 n*E];
t = Table[f[n], {n, 1, 220}] (* A191152 *)
Flatten[Position[t, 0]] (* A191230 *)
Flatten[Position[t, 1]] (* A191231 *)
CROSSREFS
Sequence in context: A285073 A276394 A215532 * A139312 A323239 A376451
KEYWORD
nonn
AUTHOR
Clark Kimberling, May 27 2011
STATUS
approved