|
|
|
|
-1, 1, 31, 417, 5919, 97217, 1828479, 38085249, 853450367, 20174707521, 496690317855, 12626836592289, 329476040177439, 8785359461936769, 238587766484265471, 6581966817521388033, 184067922884292651519, 5209333642085984431489, 148992465188631205367071, 4301514890878664802287777
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,3
|
|
COMMENTS
|
Conjecture: (i) All the terms are odd integers. For any prime p, if p == 3 (mod 4) then a(p) == -5 (mod p^2), otherwise a(p) == -1 (mod p).
(ii) For n = 0,1,2,... let D_n(x) = Sum_{k=0..n} binomial(n,k)*binomial(n+k,k)*x^k and R_n(x) = Sum_{k=0..n} binomial(n,k)*binomial(n+k,k)*x^k/(2k-1). For any positive integer n, all the coefficients of the polynomial (1/n)*Sum_{k=0..n-1} D_k(x)*R_k(x) are integral and the polynomial is irreducible over the field of rational numbers.
|
|
LINKS
|
|
|
EXAMPLE
|
|
|
MATHEMATICA
|
d[n_]:=d[n]=Sum[Binomial[n, k]Binomial[n+k, k], {k, 0, n}]
R[n_]:=R[n]=Sum[Binomial[n, k]Binomial[n+k, k]/(2k-1), {k, 0, n}]
a[n_]:=a[n]=Sum[d[k]*R[k], {k, 0, n-1}]/n
Do[Print[n, " ", a[n]], {n, 1, 20}]
|
|
CROSSREFS
|
|
|
KEYWORD
|
sign
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|