A190212 Positions of 1 in A190210; complement of A190211.

1, 2, 6, 7, 8, 11, 12, 13, 14, 18, 19, 22, 24, 25, 28, 30, 31, 33, 35, 36, 39, 41, 42, 44, 45, 47, 48, 50, 53, 55, 56, 59, 61, 62, 65, 66, 67, 70, 72, 73, 76, 77, 78, 79, 82, 83, 84, 88, 89, 90, 94, 95, 96, 100, 101, 105, 106, 107, 110, 111, 112, 113, 117, 118, 121, 123, 124, 127, 129, 130, 132, 135, 138, 140, 141, 143, 144, 146, 147, 149, 152, 154

Offset

1,2

Links

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

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, A190211.

Sequence in context: A325465 A047553 A139418 * A327179 A031198 A338680

Adjacent sequences: A190209 A190210 A190211 * A190213 A190214 A190215

Keyword

nonn

Author

Clark Kimberling, May 05 2011

Status

approved