A124507 a(n) = floor(exp(n*Pi/2)).

1, 4, 23, 111, 535, 2575, 12391, 59609, 286751, 1379410, 6635623, 31920519, 153552935, 738662922, 3553321280, 17093171648, 82226315585, 395547831244, 1902773895292, 9153250784394, 44031505860632, 211812562992413, 1018919543279304, 4901489415968642

Offset: 0

Author

Zacariaz Martinez, Dec 27 2006

Keywords

• nonn

References

• Roger Penrose, The Road to Reality, (2005), p. 88 (figure 5.3).

Links

• G. C. Greubel, Table of n, a(n) for n = 0..1000

Crossrefs

Cf. A062360 (even bisection), A042972.

Programs

Magma

R:= RealField(10); [Floor(Exp(n*Pi(R)/2)): n in [0..30]]; // G. C. Greubel, Nov 25 2018

Maple

Digits:= 2000:
a:= n-> floor(exp(n*Pi/2)):
seq(a(n), n=0..30);  # Alois P. Heinz, Nov 25 2018

Mathematica

Table[ Floor@ Exp[n*Pi/2], {n, 0, 21}] (* Robert G. Wilson v, Dec 31 2006 *)

PARI

vector(30, n, n--; floor(exp(n*Pi/2))) \\ G. C. Greubel, Nov 25 2018

Sage

[floor(exp(n*pi/2)) for n in range(30)] # G. C. Greubel, Nov 25 2018

Extensions

Edited and extended by Robert G. Wilson v, Dec 31 2006

Comments edited by Jon E. Schoenfield, Nov 25 2018