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

Author

Clark Kimberling

Keywords

• nonn

Links

• G. C. Greubel, Table of n, a(n) for n = 1..10000
• Index entries for sequences related to Beatty sequences

Crossrefs

Cf. A022843, A054385.

Programs

Magma

E:=Exp(1); [Floor(n*E) - Floor(n*E/(E-1)): n in [1..75]]; // G. C. Greubel, Jun 19 2019

Mathematica

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

PARI

my(e=exp(1)); vector(75, n, (n*e)\1 - (n*e)\(e-1)) \\ 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

Formula

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

Extensions

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