|
%I #14 Aug 11 2018 03:06:43
%S 4,8,5,4,1,7,0,2,3,7,3,0,8,8,2,3,3,9,7,0,6,8,1,4,3,7,8,6,8,1,8,4,4,6,
%T 3,4,0,5,3,6,3,1,0,2,9,6,8,4,2,8,4,4,2,9,8,8,6,1,4,6,0,2,7,5,4,6,3,5,
%U 3,6,4,5,1,6,2,0,1,9,5,7,6,0,2,7,5,4,2,6,8,9,6,6,6,3,2,1,6,6,6,2,6,0,8,4,4
%N Decimal expansion of the real fixed point of the jinc function.
%H Iain Fox, <a href="/A133921/b133921.txt">Table of n, a(n) for n = 0..20000</a>
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/JincFunction.html">Jinc Function</a>
%e 0.48541702373088233970...
%t jinc[x_] := BesselJ[1, x]/x; RealDigits[ x /. FindRoot[jinc[x] == x, {x, 1/2}, WorkingPrecision -> 105]][[1]] (* _Jean-François Alcover_, Nov 09 2012 *)
%o (PARI) solve(x=.4,1,besselj(1,x)-x^2) \\ _Charles R Greathouse IV_, Feb 19 2014
%K nonn,cons
%O 0,1
%A _Eric W. Weisstein_, Sep 28 2007
|
