login
A190229
Positions of 1 in A190227; complement of A190228.
3
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
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
Sequence in context: A118011 A189679 A286666 * A190085 A360926 A303590
KEYWORD
nonn
AUTHOR
Clark Kimberling, May 06 2011
STATUS
approved