A190231 Positions of 0 in A190230; complement of A190232.

7, 10, 11, 13, 14, 15, 17, 18, 19, 20, 23, 26, 30, 33, 34, 36, 37, 38, 39, 40, 46, 49, 52, 53, 56, 57, 59, 60, 61, 65, 68, 69, 72, 73, 75, 76, 78, 79, 80, 81, 88, 91, 92, 94, 95, 96, 98, 99, 101, 102, 107, 111, 114, 115, 117, 118, 119, 120, 121, 122, 123, 130, 133, 134, 136, 137, 138, 140, 141, 142, 143, 146, 149, 153, 156, 157, 159, 160

Offset

1,1

Links

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

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

Sequence in context: A168158 A278738 A060228 * A191875 A194418 A094764

Adjacent sequences: A190228 A190229 A190230 * A190232 A190233 A190234

Keyword

nonn

Author

Clark Kimberling, May 06 2011

Status

approved