A190237 Positions of 0 in A190236; complement of A190238.

2, 4, 5, 6, 7, 8, 10, 12, 13, 14, 15, 16, 18, 20, 22, 23, 24, 25, 26, 28, 30, 31, 32, 33, 34, 36, 38, 39, 40, 41, 42, 44, 46, 47, 48, 49, 50, 52, 54, 56, 57, 58, 59, 60, 62, 64, 65, 66, 67, 68, 70, 72, 73, 74, 75, 76, 78, 80, 81, 82, 83, 84, 86, 88, 89, 90, 91, 92, 93, 94, 96, 98, 99, 100, 101, 102, 104, 106, 107, 108, 109, 110, 112, 114, 115, 116

Offset

1,1

Links

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

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

Cf. A190236, A190238.

Sequence in context: A361144 A188160 A047571 * A190225 A276706 A357018

Adjacent sequences: A190234 A190235 A190236 * A190238 A190239 A190240

Keyword

nonn

Author

Clark Kimberling, May 06 2011

Status

approved