|
%I #13 May 02 2023 02:25:50
%S 1,0,2,1,0,1,7,6,1,2,2,8,1,3,0,3,0,5,4,5,4,6,8,2,0,5,5,9,4,6,5,6,5,3,
%T 9,8,2,4,9,5,3,0,5,7,9,8,9,5,5,1,3,9,1,9,2,3,3,4,8,2,1,1,1,2,5,8,1,7,
%U 5,3,1,0,7,5,1,5,7,9,1,4,0,1,0,7,6,3,9,3,0,3,5,8,5,9,5,7,6,8,2,4,2,2,8,7,0
%N Decimal expansion of third solution of equation tan(x) = tanh(x).
%C This is an equation related to a beam clamped at left and simply supported at right: tan(x) = tanh(x). The first three solutions are: 3.927... (A076420), 7.069... (A076421) and 10.21... (this sequence).
%H Zakoua Guédé and Isaac Elishakoff, <a href="http://dx.doi.org/10.1016/S0960-0779(00)00014-X">A fifth-order polynomial that serves as both buckling and vibration mode of an inhomogeneous structure</a>, Chaos, Solitons and Fractals 12 (7) (2001) 1267-1298.
%e 10.2101761228130305454682055946565398249530579895513...
%t RealDigits[x /. FindRoot[Tan[x] == Tanh[x], {x, 10}, WorkingPrecision->120], 10, 105][[1]] (* _Amiram Eldar_, May 02 2023 *)
%o (PARI) solve(x = 10, 10.3, tan(x) - tanh(x)) \\ _Amiram Eldar_, May 02 2023
%Y Cf. A076420, A076421.
%K easy,nonn,cons
%O 2,3
%A _Zak Seidov_, Oct 10 2002
%E Offset corrected by _R. J. Mathar_, Feb 05 2009
|
