A014246 a(n) = (n-th term of Beatty sequence for e) - (n-th term of Beatty sequence for e/(e-1)).

1, 2, 4, 4, 6, 7, 8, 9, 10, 12, 12, 14, 15, 16, 17, 18, 20, 20, 21, 23, 24, 25, 26, 28, 28, 29, 31, 32, 33, 34, 35, 36, 37, 39, 40, 41, 42, 43, 45, 45, 47, 48, 48, 50, 51, 53, 53, 55, 56, 56, 58, 59, 61, 61, 62, 64, 64, 66, 67, 69, 69, 70, 72, 72, 74, 75, 77, 77, 78, 80, 80, 82

Offset

1,2

Links

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

Index entries for sequences related to Beatty sequences

Formula

a(n) = floor(e * n) - floor(e/(e-1) * n). - Franklin T. Adams-Watters, Nov 02 2006

Mathematica

Table[Floor[n*E] - Floor[n*E/(E-1)], {n, 1, 75}] (* G. C. Greubel, Jun 19 2019 *)

Prog

(PARI) my(e=exp(1)); vector(75, n, (n*e)\1 - (n*e)\(e-1)) \\ G. C. Greubel, Jun 19 2019
(Magma) E:=Exp(1); [Floor(n*E) - Floor(n*E/(E-1)): n in [1..75]]; // G. C. Greubel, Jun 19 2019
(Sage) [floor(n*e) - floor(n*e/(e-1)) for n in (1..75)] # G. C. Greubel, Jun 19 2019

Crossrefs

Cf. A022843, A054385.

Sequence in context: A316945 A307370 A352923 * A026413 A342929 A038669

Adjacent sequences: A014243 A014244 A014245 * A014247 A014248 A014249

Keyword

nonn

Author

Clark Kimberling

Extensions

Corrected and extended by Franklin T. Adams-Watters, Nov 02 2006

Status

approved