A190232 Positions of 1 in A190230; complement of A190231.

1, 2, 3, 4, 5, 6, 8, 9, 12, 16, 21, 22, 24, 25, 27, 28, 29, 31, 32, 35, 41, 42, 43, 44, 45, 47, 48, 50, 51, 54, 55, 58, 62, 63, 64, 66, 67, 70, 71, 74, 77, 82, 83, 84, 85, 86, 87, 89, 90, 93, 97, 100, 103, 104, 105, 106, 108, 109, 110, 112, 113, 116, 124, 125, 126, 127, 128, 129, 131, 132, 135, 139, 144, 145, 147, 148, 150

Offset

1,2

Links

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

Mathematica

u = Sin[2Pi/5]; v = Cos[2Pi/5];
f[n_] := Floor[n*u + n*v] - Floor[n*u] - Floor[n*v]
t = Table[f[n], {n, 1, 120}] (* A190230 *)
Flatten[Position[t, 0]]      (* A190231 *)
Flatten[Position[t, 1]]      (* A190232 *)

Crossrefs

Cf. A190230, A190231.

Sequence in context: A351987 A295165 A258023 * A084693 A276765 A121644

Adjacent sequences: A190229 A190230 A190231 * A190233 A190234 A190235

Keyword

nonn

Author

Clark Kimberling, May 06 2011

Status

approved