%I #4 Jul 01 2015 14:46:18
%S 5,3,1,7,5,5,3,1,2,6,0,8,3,9,9,4,3,5,0,3,6,3,3,5,5,5,5,8,1,8,8,9,1,9,
%T 2,1,4,7,6,6,6,9,8,2,8,6,2,2,0,1,0,2,8,6,6,2,2,0,4,2,9,3,3,7,6,0,4,0,
%U 5,9,0,5,3,8,8,6,0,5,7,3,7,1,9,4,3,4,1,1,5,1,2,0,5,3,6,9,5,9,6,2,2,1,4,2
%N Decimal expansion of J'_4(1), the first root of the derivative of the Bessel function J_4.
%H Eric Weisstein's MathWorld, <a href="http://mathworld.wolfram.com/BesselFunctionZeros.html">Bessel Function Zeros</a>
%e 5.317553126083994350363355558188919214766698286220102866220429337604059...
%t FindRoot[D[BesselJ[4, x], x] == 0, {x, 5}, WorkingPrecision -> 104] // Last // Last // RealDigits // First
%Y Cf. A115369 J'_0(1), A259616 J'_1(1), A259617 J'_2(1), A259618 J'_3(1), A259620 J'_5(1).
%K nonn,cons,easy
%O 1,1
%A _Jean-François Alcover_, Jul 01 2015
|