# Greetings from The On-Line Encyclopedia of Integer Sequences! http://oeis.org/

Search: id:a069997
Showing 1-1 of 1

%I A069997 #13 Jun 18 2013 10:18:47
%S A069997 5,8,8,5,3,2,7,4,3,9,8,1,8,6,1,0,7,7,4,3,2,4,5,2,0,4,5,7,0,2,9,0,3,6,
%T A069997 8,8,5,3,1,2,7,1,5,1,6,1,0,9,0,3,0,5,3,3,3,1,9,9,1,4,2,9,9,5,1,1,6,7,
%U A069997 2,5,5,3,3,0,7,3,5,1,4,2,7,7,3,8,5,2,4,0,6,1,5,7,6,0,2,7,4,0,9,5,6,2,1,5
%N A069997 Decimal expansion of (negative of) root of exp(x)+sin(x)=0.
%C A069997 The number -0.588532... is the greatest negative root of e^x+sin(x), and 0.588532... is the least positive root of e^(-x)=sin(x).  [From Clark Kimberling, Oct 02 2011]
%e A069997 -0.5885327439818610774324520457029036885312715161090305333199142995116725533...
%t A069997 x /. FindRoot[ Exp[x] + Sin[x] == 0, {x, 0}, WorkingPrecision -> 110] // RealDigits[#, 10, 104]& // First (* _Jean-François Alcover_, Jun 18 2013 *)
%o A069997 (PARI) 300 significant digits : s=0; for(n=1,250,s=s+sign(log(sin(s)^2)/2-s)/2^n; if(n>249,print1(s,",")))
%o A069997 (PARI) solve(x=0,1,exp(-x)+sin(-x)) \\ _Charles R Greathouse IV_, Jun 18 2013
%K A069997 cons,easy,nonn
%O A069997 0,1
%A A069997 _Benoit Cloitre_, May 01 2002
%E A069997 Digits beyond a(75) corrected by _Jean-François Alcover_, Jun 18 2013

# Content is available under The OEIS End-User License Agreement: http://oeis.org/LICENSE