This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
24048 represents A115368. 55201 represents 5.52007811...
Round[10000 BesselJZero[0, Range[20]]]
From R. J. Mathar, Sep 22 2010: (Start) Digits := 120 : Jnudnu := proc(nu,z,kmax) -add( (-1)^k*Psi(nu+k+1)/GAMMA(nu+k+1)*(z/2)^(2*k+nu)/k! , k=0..kmax) ; evalf(%) ; end proc: Jprime := diff(BesselJ(0,x),x) ; z := evalf(BesselJZeros(0,1)) ; denomin := subs(x=z,Jprime) ; for kmax from 30 to 70 by 10 do numerat := Jnudnu(0,z,kmax) ; c := evalf(-numerat/denomin) ; print(c) ; end do: # Abramowitz-Stegun 9.1.64 (End)
N[(Pi BesselY[0,BesselJZero[0,1]])/(2 BesselJ[1,BesselJZero[0,1]]),200]
besseljzero'(0) \\ Charles R Greathouse IV, Oct 23 2023
5.5200781102863106495...
Digits:=101; evalf(BesselJZeros(0,2));
RealDigits[BesselJZero[0, 2], 10, 100][[1]] (* Amiram Eldar, May 18 2021 *)
solve(x=5, 6, besselj(0,x)) \\ Michel Marcus, Jan 28 2017
besseljzero(0,2) \\ Charles R Greathouse IV, Aug 09 2022
1/BesselJ(0,x) = 1 + x^2/(2!)^2 + 27*x^4/(4!)^2 + 4275*x^6/(6!)^2 + 2326275*x^8/(8!)^2 + ...
nmax = 13; Table[(CoefficientList[Series[1/BesselJ[0, x], {x, 0, 2 nmax}], x] Range[0, 2 nmax]!^2)[[n]], {n, 1, 2 nmax + 1, 2}]
nmax = 13; Table[(CoefficientList[Series[1/Hypergeometric0F1[1, -x^2/4], {x, 0, 2 nmax}], x] Range[0, 2 nmax]!^2)[[n]], {n, 1, 2 nmax + 1, 2}]
Comments