|
|
A063458
|
|
a(n) = floor(a(n-1)^(Pi-1)); a(1) = 2.
|
|
2
|
|
|
2, 4, 19, 547, 730556, 3610416325914, 781938194552128470561538915, 3928443413414047007552974915529711833274293773223249470297, 2204750835730403575885277542208188462124094746081014153047016607543500543796047647406417833643102917913427416915474468453030
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
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
|
|
|
|