A188074 Positions of 1 in the zero-one sequence [n*r]-[3*r]-[n*r-3*r], where r=sqrt(3), n>=1.

7, 11, 18, 22, 26, 33, 37, 41, 48, 52, 59, 63, 67, 74, 78, 82, 89, 93, 97, 104, 108, 115, 119, 123, 130, 134, 138, 145, 149, 153, 160, 164, 171, 175, 179, 186, 190, 194, 201, 205, 212, 216, 220, 227, 231, 235, 242, 246, 250, 257, 261, 268, 272, 276, 283, 287, 291, 298, 302, 306, 313, 317, 324, 328, 332, 339, 343, 347, 354, 358, 362, 369, 373, 380, 384, 388, 395, 399

Offset

1,1

Comments

See A188014.

Links

Table of n, a(n) for n=1..78.

Mathematica

r=3^(1/2); k=3;
t=Table[Floor[n*r]-Floor[(n-k)*r]-Floor[k*r], {n, 1, 220}]
Flatten[Position[t, 0]]
Flatten[Position[t, 1]]  (* A188074 *)

Crossrefs

Cf. A188014, A188068.

Sequence in context: A260892 A020455 A178617 * A190689 A048215 A131192

Adjacent sequences: A188071 A188072 A188073 * A188075 A188076 A188077

Keyword

nonn

Author

Clark Kimberling, Mar 20 2011

Status

approved