OFFSET
1,1
COMMENTS
Beatty complement is A094391.
LINKS
G. C. Greubel, Table of n, a(n) for n = 1..10000
FORMULA
a(n) = floor(n * exp(Pi/4)).
MATHEMATICA
c = E^(Pi/4); Table[Floor[n*c], {n, 65}]
PROG
(Magma)
R:= RealField(100);
[Floor(n*Exp(Pi(R)/4)): n in [1..100]]; // G. C. Greubel, Sep 27 2024
(SageMath)
[int(n*exp(pi/4)) for n in range(1, 101)] # G. C. Greubel, Sep 27 2024
CROSSREFS
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Apr 28 2004
STATUS
approved