Nothing Special   »   [go: up one dir, main page]

login
A221149
Decimal expansion of 3*log(phi)/log(1+sqrt(2)).
1
1, 6, 3, 7, 9, 3, 8, 2, 0, 9, 6, 7, 6, 3, 4, 7, 0, 1, 1, 6, 6, 9, 7, 7, 1, 0, 2, 4, 5, 8, 1, 3, 6, 5, 2, 2, 8, 5, 5, 6, 2, 7, 5, 2, 6, 2, 8, 6, 7, 1, 4, 1, 6, 8, 2, 5, 1, 8, 8, 7, 8, 1, 6, 8, 2, 8, 2, 5, 7, 1, 7, 6, 2, 7, 2, 0, 2, 7, 3, 7, 5, 5, 1, 8, 4, 7, 2, 4, 5, 5, 0, 5, 4, 7, 1, 4, 2, 8, 6, 0, 6, 9, 7, 7, 7, 3, 8, 7, 8, 5, 2, 0, 5, 5, 1, 9, 8, 2, 0, 9
OFFSET
1,2
COMMENTS
Fractal dimension of the Fibonacci word fractal.
LINKS
Alexis Monnerot-Dumaine, The Fibonacci Word Fractal, HAL-00367972, February 2009, section 5.1.
José L. Ramírez, Gustavo N. Rubiano, and Rodrigo de Castro, A Generalization of the Fibonacci Word Fractal and the Fibonacci Snowflake, arXiv:1212.1368 [cs.DM], 2012-2014.
EXAMPLE
1.637938209676347011669771024581365...
MAPLE
evalf(3*log((1+sqrt(5))/2)/log(1+sqrt(2)), 120); # Muniru A Asiru, Oct 07 2018
MATHEMATICA
RealDigits[(3*Log[GoldenRatio])/Log[1+Sqrt[2]], 10, 120][[1]] (* Harvey P. Dale, Jan 28 2013 *)
PROG
(PARI) 3*log((1+sqrt(5))/2)/log(1+sqrt(2)) \\ Charles R Greathouse IV, Mar 25 2014
(Magma) SetDefaultRealField(RealField(100)); 3*Log((1+Sqrt(5))/2)/Log(1 +Sqrt(2)); // G. C. Greubel, Oct 06 2018
CROSSREFS
Sequence in context: A249542 A125123 A133612 * A070392 A248268 A115371
KEYWORD
nonn,cons
AUTHOR
N. J. A. Sloane, Jan 03 2013
STATUS
approved