A116397 Decimal expansion of P^24 where P = plastic constant (A060006).

8, 5, 3, 0, 2, 5, 7, 9, 1, 9, 1, 9, 1, 9, 6, 2, 4, 8, 8, 8, 9, 5, 4, 2, 6, 2, 5, 7, 0, 8, 4, 0, 1, 5, 3, 3, 6, 7, 3, 5, 3, 8, 3, 9, 8, 6, 3, 3, 5, 1, 7, 9, 7, 0, 3, 9, 9, 3, 7, 0, 7, 8, 2, 4, 5, 9, 4, 6, 5, 5, 1, 1, 6, 0, 5, 6, 8, 6, 3, 3, 0, 5, 7, 2, 1, 4, 0, 7, 4, 5, 7, 8, 3, 6, 2, 3, 6, 9, 0, 0, 1, 7, 1, 0, 1

Offset

3,1

Links

Table of n, a(n) for n=3..107.

Eric Weisstein's World of Mathematics, Plastic Constant

Eric Weisstein's World of Mathematics, Dedekind Eta Function

Example

853.0257919191962488...

Mathematica

RealDigits[(x/.First[Solve[x^3-x-1==0, x]])^24, 10, 120][[1]] (* Harvey P. Dale, Jun 24 2011 *)
Root[ #^3 - 853#^2 - 22# - 1 & , 1] // RealDigits[#, 10, 105]& // First (* Jean-François Alcover, Mar 05 2013 *)

Crossrefs

Cf. A060006.

Sequence in context: A256190 A198918 A196515 * A275306 A176705 A140133

Adjacent sequences: A116394 A116395 A116396 * A116398 A116399 A116400

Keyword

nonn,cons

Author

Eric W. Weisstein, Feb 12 2006

Status

approved