cp's OEIS Frontend

A274542 Decimal expansion of exp(sqrt(2)/3).

%I A274542 #18 Nov 21 2024 09:30:38
%S A274542 1,6,0,2,2,4,2,9,9,7,2,0,3,5,6,0,1,5,0,9,9,5,1,7,7,7,7,2,2,2,8,6,7,8,
%T A274542 7,5,8,5,1,2,9,6,1,6,8,2,9,5,4,5,4,7,1,8,7,4,2,6,8,2,2,4,0,5,3,0,9,1,
%U A274542 0,0,1,6,9,9,4,9,0,4,1,9,1,9,5,8,2
%N A274542 Decimal expansion of exp(sqrt(2)/3).
%C A274542 Define P(n) = (1/n)*(sum(x(n-k)*P(k), k=0..n-1)), n >= 1 and P(0) =1 with x(3) = (1 + sqrt(2)) and x(n) = 1 for all other n. We find that C2 = limit(P(n), n -> infinity) = exp(sqrt(2)/3).
%C A274542 The structure of the n!*P(n) formulas leads to the multinomial coefficients A036039.
%H A274542 G. C. Greubel, <a href="/A274542/b274542.txt">Table of n, a(n) for n = 1..10000</a>
%H A274542 The Dev Team and Simon Plouffe, <a href="https://wayback.cecm.sfu.ca/projects/ISC/ISCmain.html">The Inverse Symbolic Calculator (ISC)</a>.
%H A274542 <a href="/index/Tra#transcendental">Index entries for transcendental numbers</a>
%F A274542 c = exp(sqrt(2)/3)
%F A274542 c = limit(P(n), n -> infinity) with P(n) = (1/n)*(sum(x(n-k)*P(k), k=0..n-1)) for n >= 1, and P(0) =1, with x(3) = (1 + sqrt(2)), the silver mean A014176, and x(n) = 1 for all other n.
%e A274542 c = 1.6022429972035601509951777722286787585129616829545471874……
%p A274542 Digits := 85: evalf(exp(sqrt(2)/3)); # End program 1.
%p A274542 P := proc(n) : if n=0 then 1 else P(n) := expand((1/n)*(add(x(n-k)*P(k), k=0..n-1))) fi; end: x := proc(n): if n=3 then (sqrt(2)+1) else 1 fi: end: Digits := 56; evalf(P(120)); # End program 2.
%t A274542 First@ RealDigits@ N[Exp[Sqrt[2]/3], 85] (* _Michael De Vlieger_, Jun 27 2016 *)
%o A274542 (PARI) my(x=exp(sqrt(2)/3)); for(k=1, 100, my(d=floor(x)); x=(x-d)*10; print1(d, ", ")) \\ _Felix Fröhlich_, Jun 27 2016
%o A274542 (Magma) SetDefaultRealField(RealField(100)); Exp[Sqrt[2]/3]; // _G. C. Greubel_, Aug 19 2018
%Y A274542 Cf. A274540, A274541, A014176, A131594, A036039.
%K A274542 cons,nonn
%O A274542 1,2
%A A274542 _Johannes W. Meijer_, Jun 27 2016