login
A131566
Decimal expansion of (e*Pi*phi)^2.
4
1, 9, 0, 9, 2, 5, 5, 2, 3, 3, 3, 4, 4, 5, 8, 8, 2, 3, 6, 9, 0, 3, 9, 5, 2, 4, 1, 4, 2, 9, 1, 0, 9, 4, 0, 6, 0, 7, 2, 4, 4, 3, 4, 6, 4, 1, 0, 8, 7, 8, 4, 6, 9, 4, 2, 6, 5, 0, 7, 5, 7, 1, 9, 2, 0, 2, 0, 0, 2, 1, 1, 9, 2, 8, 1, 7, 1, 1, 0, 9, 4, 5, 7, 6, 5, 8, 8, 6, 1, 1, 2, 9, 9, 6, 2, 8, 9, 9, 7, 1, 0, 6, 8, 2, 7
OFFSET
3,2
COMMENTS
phi = (5^(1/2) + 1)/2 = (1 + sqrt(5))/2.
LINKS
EXAMPLE
190.925523334...
MATHEMATICA
phi=(5^(1/2)+1)/2; RealDigits[N[(Pi*E*phi)^2, 6! ]][[1]] (* Vladimir Joseph Stephan Orlovsky, Jun 18 2009 *)
RealDigits[(E*Pi*GoldenRatio)^2, 10, 120][[1]] (* Harvey P. Dale, May 01 2017 *)
PROG
(PARI) { default(realprecision, 20080); phi = (1 + sqrt(5))/2; x=(exp(1)*Pi*phi)^2/100; for (n=3, 20000, d=floor(x); x=(x-d)*10; write("b131566.txt", n, " ", d)); } \\ Harry J. Smith, Apr 27 2009
CROSSREFS
KEYWORD
cons,nonn
AUTHOR
Omar E. Pol, Aug 27 2007
EXTENSIONS
More terms from Harry J. Smith, Apr 26 2009
Fixed my PARI program, had -n Harry J. Smith, May 19 2009
STATUS
approved