A188318 a(n) = [n*r] - [k*r] - [n*r-k*r], where r=1/sqrt(2), k=4, [ ]=floor.

1, 1, 1, 0, 1, 1, 0, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 0, 1, 1, 0, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 0, 1, 1, 0, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 0, 1, 1, 0, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 0, 1, 1, 0, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 0, 1, 1, 0, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 0, 1, 1, 0, 1, 1, 1, 1, 1, 1, 0

Offset

1

Comments

See A188014.

Links

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

Formula

a(n) = [n*r] - [4*r] - [n*r-4*r], where r=1/sqrt(2).

Mathematica

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

Prog

(PARI) for(n=1, 100, print1(floor(n/sqrt(2)) - floor((n-4)/sqrt(2)) - floor(4/sqrt(2)), ", ")) \\ G. C. Greubel, Apr 13 2018
(Magma) [Floor(n/Sqrt(2)) - Floor((n-4)/Sqrt(2)) - Floor(4/Sqrt(2)): n in [1..100]]; // G. C. Greubel, Apr 13 2018

Crossrefs

Cf. A188014, A188319, A188320.

Sequence in context: A174600 A265186 A248392 * A361897 A189206 A323152

Adjacent sequences: A188315 A188316 A188317 * A188319 A188320 A188321

Keyword

nonn

Author

Clark Kimberling, Mar 28 2011

Status

approved