A188396 Positions of 0 in A188395; complement of A188397.

3, 10, 17, 20, 27, 34, 37, 44, 51, 58, 61, 68, 75, 78, 85, 92, 99, 102, 109, 116, 119, 126, 133, 136, 143, 150, 157, 160, 167, 174, 177, 184, 191, 198, 201, 208, 215, 218, 225, 232, 235, 242, 249, 256, 259, 266, 273, 276, 283, 290, 297, 300, 307, 314, 317, 324, 331, 338, 341, 348, 355, 358, 365, 372, 375, 382, 389, 396, 399, 406, 413, 416

Offset: 1

Author

Clark Kimberling, Mar 30 2011

Keywords

• nonn

Comments

See A187950, A188395.

Links

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

Crossrefs

Cf. A187950, A188395, A188397.

Programs

Mathematica

r=2^(-1/2); k=4;
t=Table[Floor[n*r+k*r]-Floor[n*r]-Floor[k*r], {n,1,220}]   (* A188395 *)
Flatten[Position[t,0] ]   (* A188396 *)
Flatten[Position[t,1] ]   (* A188397 *)

PARI

lista(nn) = Vec(select(x->x==0, vector(nn, n, floor((n+4)/sqrt(2)) - floor(n/sqrt(2)) - floor(4/sqrt(2))), 1)); \\ Michel Marcus, Apr 26 2018