A094390 - OEIS

%I #7 Sep 27 2024 02:12:49

%S 2,4,6,8,10,13,15,17,19,21,24,26,28,30,32,35,37,39,41,43,46,48,50,52,

%T 54,57,59,61,63,65,67,70,72,74,76,78,81,83,85,87,89,92,94,96,98,100,

%U 103,105,107,109,111,114,116,118,120,122,125,127,129,131,133,135,138,140

%N A Beatty sequence using exp(Pi/4).

%C Beatty complement is A094391.

%H G. C. Greubel, <a href="/A094390/b094390.txt">Table of n, a(n) for n = 1..10000</a>

%F a(n) = floor(n * exp(Pi/4)).

%t c = E^(Pi/4); Table[Floor[n*c], {n,65}]

%o (Magma)

%o R:= RealField(100);

%o [Floor(n*Exp(Pi(R)/4)): n in [1..100]]; // _G. C. Greubel_, Sep 27 2024

%o (SageMath)

%o [int(n*exp(pi/4)) for n in range(1,101)] # _G. C. Greubel_, Sep 27 2024

%Y Cf. A094391.

%K nonn

%O 1,1

%A _Robert G. Wilson v_, Apr 28 2004