login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A054385 Beatty sequence for e/(e-1); complement of A022843. 14
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 (list; graph; refs; listen; history; text; internal format)
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

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified July 29 17:41 EDT 2021. Contains 346346 sequences. (Running on oeis4.)