A190229 Positions of 1 in A190227; complement of A190228.

1, 3, 6, 8, 11, 13, 16, 17, 18, 21, 22, 23, 27, 28, 32, 33, 34, 37, 38, 39, 42, 43, 44, 48, 49, 51, 53, 54, 56, 58, 59, 61, 64, 66, 69, 71, 74, 76, 79, 81, 84, 85, 86, 90, 91, 95, 96, 100, 101, 102, 105, 106, 107, 110, 111, 112, 116, 117, 119, 121, 122, 124, 127, 129, 131, 132, 134, 137, 139, 142, 144, 147, 148, 149, 152, 153, 154, 158, 159

Offset

1,2

Links

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

Mathematica

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

Crossrefs

Cf. A190227, A190228.

Sequence in context: A118011 A189679 A286666 * A190085 A360926 A303590

Adjacent sequences: A190226 A190227 A190228 * A190230 A190231 A190232

Keyword

nonn

Author

Clark Kimberling, May 06 2011

Status

approved