OFFSET
4,1
COMMENTS
a(n) is coefficient of nu in Rayleigh polynomial of index 2n.
REFERENCES
N. J. A. Sloane, A Handbook of Integer Sequences, Academic Press, 1973 (includes this sequence).
N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).
LINKS
D. H. Lehmer, Zeros of the Bessel function J_{nu}(x), Math. Comp. 1 (1945), 405-407.
D. H. Lehmer, Zeros of the Bessel function J_{nu}(x), Math. Comp., 1 (1943-1945), 405-407. [Annotated scanned copy]
MATHEMATICA
sig2n[n_, nu_] := sig2n[n, nu] = If[n == 1, 1/4/(nu + 1), Sum[sig2n[k, nu]*sig2n[n - k, nu], {k, 1, n - 1}]/(nu + n)] // Simplify;
Phi2n[n_, nu_] := 4^n*Product[(nu + k)^Floor[n/k], {k, 1, n}]*sig2n[n, nu];
a[n_] := Coefficient[Phi2n[n, x], x, 1];
CROSSREFS
KEYWORD
nonn
AUTHOR
EXTENSIONS
More terms from Sean A. Irvine, Nov 11 2010
STATUS
approved