A063458 a(n) = floor(a(n-1)^(Pi-1)); a(1) = 2.

2, 4, 19, 547, 730556, 3610416325914, 781938194552128470561538915, 3928443413414047007552974915529711833274293773223249470297, 2204750835730403575885277542208188462124094746081014153047016607543500543796047647406417833643102917913427416915474468453030

Offset

1,1

Links

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

Mathematica

a[1] = 2; a[n_] = Floor[ a[n - 1]^(Pi - 1) ]; Table[ a[n], {n, 1, 9} ]
With[{c=Pi-1}, NestList[Floor[#^c]&, 2, 10]] (* Harvey P. Dale, Oct 03 2012 *)

Prog

(PARI) { default(realprecision, 2000); for (n=1, 11, if (n>1, a=floor(a^(Pi - 1)), a=2); write("b063458.txt", n, " ", a) ) } \\ Harry J. Smith, Aug 22 2009

Crossrefs

Cf. A063457.

Sequence in context: A046082 A048774 A061213 * A332991 A132530 A316389

Adjacent sequences: A063455 A063456 A063457 * A063459 A063460 A063461

Keyword

nonn

Author

Robert G. Wilson v, Jul 25 2001

Status

approved