A190211 Positions of 0 in A190210; complement of A190212.

3, 4, 5, 9, 10, 15, 16, 17, 20, 21, 23, 26, 27, 29, 32, 34, 37, 38, 40, 43, 46, 49, 51, 52, 54, 57, 58, 60, 63, 64, 68, 69, 71, 74, 75, 80, 81, 85, 86, 87, 91, 92, 93, 97, 98, 99, 102, 103, 104, 108, 109, 114, 115, 116, 119, 120, 122, 125, 126, 128, 131, 133, 134, 136, 137, 139, 142, 145, 148, 150, 151, 153, 156

Offset

1,1

Links

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

Mathematica

u = 8^(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}] (* A190210 *)
Flatten[Position[t, 0]]      (* A190211 *)
Flatten[Position[t, 1]]      (* A190212 *)

Crossrefs

Cf. A190210, A190212.

Sequence in context: A050068 A250444 A327178 * A136120 A217040 A295718

Adjacent sequences: A190208 A190209 A190210 * A190212 A190213 A190214

Keyword

nonn

Author

Clark Kimberling, May 05 2011

Status

approved