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,2

Comments

See A190669.

Links

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

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 *)

Crossrefs

Cf. A190669, A190670.

Sequence in context: A288671 A284906 A285260 * A042948 A338062 A126001

Adjacent sequences: A190668 A190669 A190670 * A190672 A190673 A190674

Keyword

nonn

Author

Clark Kimberling, May 16 2011

Status

approved