login
A190234
Positions of 0 in A190233; complement of A190235.
3
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
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
Sequence in context: A299240 A004715 A280272 * A036558 A005870 A194461
KEYWORD
nonn
AUTHOR
Clark Kimberling, May 06 2011
STATUS
approved