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

Author

Eric W. Weisstein, Feb 12 2006

Keywords

• nonn
• cons

Examples

			853.0257919191962488...
		

Links

• Eric Weisstein's World of Mathematics, Plastic Constant
• Eric Weisstein's World of Mathematics, Dedekind Eta Function

Crossrefs

Cf. A060006.

Programs

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 *)