A188089 Positions of 0 in the zero-one sequence [nr+4r]-[nr]-[4r], where r=sqrt(3), n>=1.

11, 26, 41, 52, 67, 82, 97, 108, 123, 138, 153, 164, 179, 194, 205, 220, 235, 250, 261, 276, 291, 306, 317, 332, 347, 362, 373, 388, 403, 414, 429, 444, 459, 470, 485, 500, 515, 526, 541, 556, 571, 582, 597, 612, 623, 638, 653, 668, 679, 694, 709, 724, 735, 750, 765, 776, 791, 806, 821, 832, 847, 862, 877, 888, 903, 918, 933, 944, 959, 974, 985, 1000

Offset

1,1

Comments

See A187950.

Links

Chai Wah Wu, Table of n, a(n) for n = 1..10000

Mathematica

r=3^(1/2); k=4;
seqA=Table[Floor[n*r+k*r]-Floor[n*r]-Floor[k*r],
{n, 1, 220}]
Flatten[Position[seqA, 0] ]   (* A188089 *)
Flatten[Position[seqA, 1] ]   (* positions of 1 *)

Prog

(Python)
from gmpy2 import isqrt
A188089_list = [n for n in range(1, 10**6) if isqrt(3*(n+4)**2) - isqrt(3*n**2) == 6] # Chai Wah Wu, Oct 08 2016

Crossrefs

A187950.

Sequence in context: A035935 A193107 A084584 * A190699 A003345 A047722

Adjacent sequences: A188086 A188087 A188088 * A188090 A188091 A188092

Keyword

nonn

Author

Clark Kimberling, Mar 20 2011

Status

approved