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
Matthew House, Table of n, a(n) for n = 4..195
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,changed
AUTHOR
EXTENSIONS
More terms from Sean A. Irvine, Nov 11 2010
STATUS
approved