A190238 Positions of 1 in A190236; complement of A190237.

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

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

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

Adjacent sequences: A190235 A190236 A190237 * A190239 A190240 A190241

Keyword

nonn

Author

Clark Kimberling, May 06 2011

Status

approved