A190234 Positions of 0 in A190233; complement of A190235.

3, 6, 8, 9, 11, 12, 13, 16, 19, 21, 22, 24, 25, 26, 29, 32, 34, 35, 37, 38, 39, 42, 45, 48, 50, 51, 52, 55, 58, 61, 63, 64, 65, 68, 71, 74, 75, 76, 77, 78, 84, 87, 88, 89, 90, 91, 97, 100, 101, 102, 103, 104, 105, 110, 113, 114, 115, 116, 117, 118, 123, 126, 127, 129, 130, 131, 136, 137, 139, 140, 142, 143, 144, 149, 150, 152, 153, 155, 156

Offset

1,1

Links

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

Mathematica

u = Sin[Pi/8]; v = Cos[Pi/8];
f[n_] := Floor[n*u + n*v] - Floor[n*u] - Floor[n*v]
t = Table[f[n], {n, 1, 120}] (* A190233 *)
Flatten[Position[t, 0]]      (* A190234 *)
Flatten[Position[t, 1]]      (* A190235 *)

Crossrefs

Cf. A190233, A190235.

Sequence in context: A299240 A004715 A280272 * A036558 A005870 A194461

Adjacent sequences: A190231 A190232 A190233 * A190235 A190236 A190237

Keyword

nonn

Author

Clark Kimberling, May 06 2011

Status

approved