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

Comments

See A187950, A188395.

Links

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

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

Prog

(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

Crossrefs

Cf. A187950, A188395, A188397.

Sequence in context: A160375 A300017 A176760 * A356090 A190763 A043405

Adjacent sequences: A188393 A188394 A188395 * A188397 A188398 A188399

Keyword

nonn

Author

Clark Kimberling, Mar 30 2011

Status

approved