login
Decimal expansion of 3*log(phi)/log(1+sqrt(2)).
1

%I #24 Sep 08 2022 08:46:04

%S 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,

%T 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,

%U 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

%N Decimal expansion of 3*log(phi)/log(1+sqrt(2)).

%C Fractal dimension of the Fibonacci word fractal.

%H G. C. Greubel, <a href="/A221149/b221149.txt">Table of n, a(n) for n = 1..10000</a>

%H Alexis Monnerot-Dumaine, <a href="https://hal.archives-ouvertes.fr/hal-00367972/">The Fibonacci Word Fractal</a>, HAL-00367972, February 2009, section 5.1.

%H José L. Ramírez, Gustavo N. Rubiano, and Rodrigo de Castro, <a href="http://arxiv.org/abs/1212.1368">A Generalization of the Fibonacci Word Fractal and the Fibonacci Snowflake</a>, arXiv:1212.1368 [cs.DM], 2012-2014.

%H <a href="/index/Tra#transcendental">Index entries for transcendental numbers</a>

%e 1.637938209676347011669771024581365...

%p evalf(3*log((1+sqrt(5))/2)/log(1+sqrt(2)),120); # _Muniru A Asiru_, Oct 07 2018

%t RealDigits[(3*Log[GoldenRatio])/Log[1+Sqrt[2]],10,120][[1]] (* _Harvey P. Dale_, Jan 28 2013 *)

%o (PARI) 3*log((1+sqrt(5))/2)/log(1+sqrt(2)) \\ _Charles R Greathouse IV_, Mar 25 2014

%o (Magma) SetDefaultRealField(RealField(100)); 3*Log((1+Sqrt(5))/2)/Log(1 +Sqrt(2)); // _G. C. Greubel_, Oct 06 2018

%K nonn,cons

%O 1,2

%A _N. J. A. Sloane_, Jan 03 2013