A279607 Beatty sequence for e/2; i.e., a(n) = floor(n*e/2).

1, 2, 4, 5, 6, 8, 9, 10, 12, 13, 14, 16, 17, 19, 20, 21, 23, 24, 25, 27, 28, 29, 31, 32, 33, 35, 36, 38, 39, 40, 42, 43, 44, 46, 47, 48, 50, 51, 53, 54, 55, 57, 58, 59, 61, 62, 63, 65, 66, 67, 69, 70, 72, 73, 74, 76, 77, 78, 80, 81, 82, 84, 85, 86, 88, 89

Offset

1,2

Comments

The complement is A279608, the Beatty sequence for e/(e - 2).

Links

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

Index entries for sequences related to Beatty sequences

Mathematica

r = E/2; s = r/(r - 1); z = 10000;
Table[Floor[n*r], {n, 1, z}] ; (* A279607 *)
Table[Floor[n*s], {n, 1, z}] ; (* A279608 *)

Prog

(PARI) e = exp(1);
for(n=1, 100, print1(floor(n*e/2), ", ")) \\ Indranil Ghosh, Mar 30 2017
(Python)
import math
from mpmath import mp
mp.dps=100
print([int(math.floor(n*e/2)) for n in range(1, 101)]) # Indranil Ghosh, Mar 30 2017

Crossrefs

Cf. A019739 (e/2), A279608.

Sequence in context: A039070 A059553 A249245 * A292636 A079709 A285496

Adjacent sequences: A279604 A279605 A279606 * A279608 A279609 A279610

Keyword

nonn,easy

Author

Clark Kimberling, Dec 16 2016

Status

approved