A379406 a(n) = A379511(n) - A378142(n).

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

Offset

1

Links

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

Formula

a(n) = A379511(n) - A378142(n).

Mathematica

r = 2^(1/4); s = 2^(1/2); t = 2^(3/4);
Table[Floor[n*(r + t)/s] - Floor[n*r/s] - Floor[n*t/s], {n, 1, 120}]

Crossrefs

Cf. A378142, A379511.

Sequence in context: A351564 A237048 A344880 * A167020 A236862 A163812

Adjacent sequences: A379403 A379404 A379405 * A379407 A379408 A379409

Keyword

nonn

Author

Clark Kimberling, Jan 18 2025

Status

approved