A059565 Beatty sequence for e^gamma (gamma is the Euler-Mascheroni constant A001620).

1, 3, 5, 7, 8, 10, 12, 14, 16, 17, 19, 21, 23, 24, 26, 28, 30, 32, 33, 35, 37, 39, 40, 42, 44, 46, 48, 49, 51, 53, 55, 56, 58, 60, 62, 64, 65, 67, 69, 71, 73, 74, 76, 78, 80, 81, 83, 85, 87, 89, 90, 92, 94, 96, 97, 99, 101, 103, 105, 106, 108, 110, 112, 113, 115, 117

Offset

1,2

Links

Harry J. Smith, Table of n, a(n) for n = 1..2000

Aviezri S. Fraenkel, Jonathan Levitt, Michael Shimshoni, Characterization of the set of values f(n)=[n alpha], n=1,2,..., Discrete Math. 2 (1972), no.4, 335-345.

Eric Weisstein's World of Mathematics, Beatty Sequence.

Index entries for sequences related to Beatty sequences

Mathematica

Table[ Floor[ n * E^EulerGamma], {n, 1, 70} ]

Prog

(PARI) { default(realprecision, 100); b=exp(1)^Euler; for (n = 1, 2000, write("b059565.txt", n, " ", floor(n*b)); ) } \\ Harry J. Smith, Jun 28 2009
(Magma) R:=RealField(100); [Floor(Exp(EulerGamma(R))*n): n in [1..100]]; // G. C. Greubel, Aug 27 2018

Crossrefs

Cf. A073004. Beatty complement is A059566.

Sequence in context: A037086 A327212 A329825 * A329999 A187841 A253301

Adjacent sequences: A059562 A059563 A059564 * A059566 A059567 A059568

Keyword

nonn,easy

Author

Mitch Harris, Jan 22 2001

Status

approved