A190671 Positions of 1 in A190669; complement of A190670.

1, 4, 5, 8, 9, 12, 13, 15, 16, 19, 20, 23, 24, 27, 30, 31, 34, 35, 38, 39, 42, 45, 46, 49, 50, 53, 54, 56, 57, 60, 61, 64, 65, 68, 69, 71, 72, 75, 76, 79, 80, 83, 86, 87, 90, 91, 94, 95, 98, 101, 102, 105, 106, 109, 110, 112, 113, 116, 117, 120, 121, 124, 125, 127, 128, 131, 132, 135, 136, 139, 142, 143, 146, 147, 150

Offset: 1

Author

Clark Kimberling, May 16 2011

Keywords

• nonn

Comments

See A190669.

Links

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

Crossrefs

Cf. A190669, A190670.

Programs

Mathematica

r = Sqrt[3]; b = 2; c = 0;
f[n_] := Floor[(b*n + c)*r] - b*Floor[n*r] - Floor[c*r];
t = Table[f[n], {n, 1, 200}] (* A190669 *)
Flatten[Position[t, 0]]      (* A190670 *)
Flatten[Position[t, 1]]      (* A190671 *)