A370702 a(n) = h(n + 1) - h(n) where h(n) = floor(n/sqrt(k) + 1/k) and k = 3.

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

Offset

0

Links

Table of n, a(n) for n=0..89.

Mathematica

h[n_] := Floor[n/Sqrt[3] + 1/3]; Table[h[n + 1] - h[n], {n, 0, 104}]

Crossrefs

Cf. A000012 (k=1), A104521 (k=2), this sequence (k=3), A000035 (k=4).

Sequence in context: A353498 A296066 A073070 * A189687 A353817 A284653

Adjacent sequences: A370699 A370700 A370701 * A370704 A370706 A370707

Keyword

nonn

Author

Peter Luschny, Mar 06 2024

Status

approved