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

Author

Eric W. Weisstein

Keywords

• nonn

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

Crossrefs

Cf. A022843.

Cf. A108599.

Programs

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

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 *)

Python

from sympy import E
print([n*E//(E-1) for n in range(1, 70)]) # Karl V. Keller, Jr., Aug 07 2020