A276856 First differences of the Beatty sequence A022840 for sqrt(6).

2, 2, 3, 2, 3, 2, 3, 2, 3, 2, 2, 3, 2, 3, 2, 3, 2, 3, 2, 2, 3, 2, 3, 2, 3, 2, 3, 2, 3, 2, 2, 3, 2, 3, 2, 3, 2, 3, 2, 2, 3, 2, 3, 2, 3, 2, 3, 2, 3, 2, 2, 3, 2, 3, 2, 3, 2, 3, 2, 2, 3, 2, 3, 2, 3, 2, 3, 2, 3, 2, 2, 3, 2, 3, 2, 3, 2, 3, 2, 2, 3, 2, 3, 2, 3, 2

Offset: 1

Author

Clark Kimberling, Sep 24 2016

Keywords

• nonn
• easy

Links

• Clark Kimberling, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A022840, A276872.

Programs

Mathematica

z = 500; r = Sqrt[6]; b = Table[Floor[k*r], {k, 0, z}] (* A022840 *)
Differences[b] (* A276856 *)

Formula

a(n) = floor(n*r) - floor(n*r - r), where r = sqrt(6), n >= 1.