A190208 Positions of 0 in A190207; complement of A190209.

8, 11, 14, 16, 19, 22, 24, 25, 27, 28, 30, 31, 32, 33, 35, 36, 38, 39, 40, 41, 42, 45, 53, 56, 59, 61, 62, 64, 67, 69, 70, 72, 73, 75, 76, 77, 78, 79, 80, 81, 83, 84, 90, 93, 98, 101, 104, 106, 107, 109, 110, 112, 114, 115, 117, 118, 120, 121, 122, 123, 124, 125, 126, 127, 135, 138, 141, 143, 146, 149, 151, 152, 154, 155, 157

Offset

1,1

Links

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

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

Cf. A190207, A190209.

Sequence in context: A265412 A345488 A153039 * A363364 A061570 A096679

Adjacent sequences: A190205 A190206 A190207 * A190209 A190210 A190211

Keyword

nonn

Author

Clark Kimberling, May 05 2011

Status

approved