login
A190238
Positions of 1 in A190236; complement of A190237.
3
1, 3, 9, 11, 17, 19, 21, 27, 29, 35, 37, 43, 45, 51, 53, 55, 61, 63, 69, 71, 77, 79, 85, 87, 95, 97, 103, 105, 111, 113, 119, 121, 129, 131, 137, 139, 145, 147, 153, 155, 161, 163, 165, 171, 173, 179, 181, 187, 189, 195, 197, 199, 205, 207, 213, 215, 221, 223, 229, 231, 239, 241, 247, 249, 255, 257, 263, 265, 273, 275, 281, 283
OFFSET
1,2
LINKS
MATHEMATICA
u = 1/2; v = GoldenRatio;
f[n_] := Floor[n*u + n*v] - Floor[n*u] - Floor[n*v]
t = Table[f[n], {n, 1, 120}] (* A190236 *)
Flatten[Position[t, 0]] (* A190237 *)
Flatten[Position[t, 1]] (* A190238 *)
CROSSREFS
Sequence in context: A096187 A310317 A194401 * A047471 A354938 A365082
KEYWORD
nonn
AUTHOR
Clark Kimberling, May 06 2011
STATUS
approved