|
Search: id:A052110
|
|
|
| A052110 |
|
Decimal expansion of limit c^c^c^c... (with an even number of times) where c = 0.187859642462067120248517934... is the constant defined in A037077. |
|
+0
2
|
|
| 4, 6, 1, 9, 2, 1, 4, 4, 0, 1, 6, 4, 4, 1, 1, 4, 4, 5, 4, 0, 8, 5, 8, 8, 6, 4, 2, 6, 1, 4, 1, 9, 4, 5, 7, 8, 6, 3, 5, 0, 2, 8, 2, 8, 0, 1, 3, 6, 4, 8, 8, 2, 2, 8, 4, 4, 3, 4, 1, 6, 2, 9, 2, 7, 3, 5, 8, 9, 1, 7, 2, 5, 0, 2, 1, 4, 1, 5, 0, 1, 9, 5, 2, 8, 7, 5, 1, 9, 9, 4, 2, 2, 2, 5, 8, 7, 8, 6, 0, 4, 7, 3, 5, 7, 5
(list; cons; graph; listen)
|
|
|
OFFSET
|
0,1
|
|
|
COMMENT
|
A tetration of c, where is the constant defined in A037077.
In fact, since the alternating sum in A037077 converges to two sums differing by 1, there are three products produced by c^c^c^... . All three results are shown in the Mathematica program below.
|
|
REFERENCES
|
S. R. Finch, Mathematical Constants, Cambridge, 2003, pp. 448-452.
|
|
LINKS
|
S. R. Finch, Iterated Exponential Constants
Eric Weisstein's World of Mathematics, Link to a section of The World of Mathematics
Gus Wiseman, Tetration
Wikipedia, Tetrations
|
|
MATHEMATICA
|
PowerTower[x_, n_] := Nest[Power[x, # ] &, x, n - 1]; c1 = 0.1878596424620671202485179340542732300559030949; N[PowerTower[c1, 999], 100]
|
|
PROGRAM
|
(PARI) c=sumalt(x=1, (-1)^x*((x^(1/x))-1)):solve(x=.46, .462, x^(1/x)-c)
|
|
CROSSREFS
|
Cf. A037077.
Cf. A000027, A000312, A002488, A073230 .
Adjacent sequences: A052107 A052108 A052109 this_sequence A052111 A052112 A052113
Sequence in context: A051261 A030169 A156789 this_sequence A131701 A021688 A119439
|
|
KEYWORD
|
cons,nonn
|
|
AUTHOR
|
Marvin Ray Burns (bmmmburns(AT)sbcglobal.net) Jan 20 2000, Mar 28 2008
|
|
|
Search completed in 0.002 seconds
|
