login
A190209
Positions of 1 in A190207; complement of A190208.
3
1, 2, 3, 4, 5, 6, 7, 9, 10, 12, 13, 15, 17, 18, 20, 21, 23, 26, 29, 34, 37, 43, 44, 46, 47, 48, 49, 50, 51, 52, 54, 55, 57, 58, 60, 63, 65, 66, 68, 71, 74, 82, 85, 86, 87, 88, 89, 91, 92, 94, 95, 96, 97, 99, 100, 102, 103, 105, 108, 111, 113, 116, 119, 128, 129, 130, 131, 132, 133, 134, 136, 137, 139, 140, 142, 144, 145, 147, 148, 150
OFFSET
1,2
LINKS
MATHEMATICA
u = 7^(1/2); v = 1/u;
f[n_] := Floor[n*u + n*v] - Floor[n*u] - Floor[n*v]
t = Table[f[n], {n, 1, 120}] (* A190207 *)
Flatten[Position[t, 0]] (* A190208 *)
Flatten[Position[t, 1]] (* A190209 *)
CROSSREFS
Sequence in context: A358992 A033104 A191325 * A048856 A067175 A225804
KEYWORD
nonn
AUTHOR
Clark Kimberling, May 05 2011
STATUS
approved