A054385 Beatty sequence for e/(e-1); complement of A022843.

1, 3, 4, 6, 7, 9, 11, 12, 14, 15, 17, 18, 20, 22, 23, 25, 26, 28, 30, 31, 33, 34, 36, 37, 39, 41, 42, 44, 45, 47, 49, 50, 52, 53, 55, 56, 58, 60, 61, 63, 64, 66, 68, 69, 71, 72, 74, 75, 77, 79, 80, 82, 83, 85, 87, 88, 90, 91, 93, 94, 96, 98, 99, 101, 102, 104, 105, 107, 109

Offset

1,2

Links

Reinhard Zumkeller, Table of n, a(n) for n = 1..10000

Eric Weisstein's World of Mathematics, Beatty Sequence

Index entries for sequences related to Beatty sequences

Maple

A054385 := proc(n)
    floor(n*exp(1)/(exp(1)-1)) ;
end proc: # R. J. Mathar, Jan 25 2015

Mathematica

a[n_] := Floor[n E/(E - 1)];
Array[a, 100] (* Jean-François Alcover, Mar 24 2020 *)

Prog

(Haskell)
a054385 n = a054385_list !! n
a054385_list = map (floor . (* e') . fromIntegral) [1..]
   where e' = e / (e - 1); e = exp 1
-- Reinhard Zumkeller, Jul 06 2013
(Python)
from sympy import E
print([n*E//(E-1) for n in range(1, 70)]) # Karl V. Keller, Jr., Aug 07 2020

Crossrefs

Cf. A022843.

Cf. A108599.

Sequence in context: A248521 A059555 A186539 * A284773 A172272 A056576

Adjacent sequences: A054382 A054383 A054384 * A054386 A054387 A054388

Keyword

nonn

Author

Eric W. Weisstein

Status

approved