|
| |
|
|
A031164
|
|
Irreducible Euler sums of weight 8 and depth 10+2n.
|
|
3
| |
|
|
1, 4, 15, 40, 99, 212, 429, 800, 1430, 2424, 3978, 6288, 9690, 14520, 21318, 30624, 43263, 60060, 82225, 110968, 148005, 195052, 254475, 328640, 420732, 533936, 672452, 840480, 1043460, 1286832, 1577532, 1922496, 2330445
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 0,2
|
|
|
COMMENTS
| a(n-9)=number of aperiodic necklaces (Lyndon words) with 8 black beads and n-8 white beads.
|
|
|
LINKS
| D. J. Broadhurst, On the enumeration of irreducible k-fold Euler sums and their roles in knot theory and field theory
Index entries for sequences related to Lyndon words
|
|
|
FORMULA
| G.f.: (1+x^2)/((1-x)*(1-x^2))^4
a(n)=[C(n+8,7)-(n%2)*C((n+7)/2,3)]/8, where C = binomial, n%2 = parity of n (=1 if odd, 0 else). [From M. F. Hasler (www.univ-ag.fr/~mhasler), May 02 2009]
a(0)=1, a(1)=4, a(2)=15, a(3)=40, a(4)=99, a(5)=212, a(6)=429, a(7)=800, a(8)=1430, a(9)=2424, a(10)=3978, a(11)=6288, a(n)=4*a(n-1)-2*a(n-2)-12*a(n-3)+17*a(n-4)+8*a(n-5)-28*a(n-6)+8*a(n-7)+17*a(n-8)-12*a(n-9)- 2*a(n-10)+4*a(n-11)-a(n-12) [From Harvey P. Dale, June 20 2011]
|
|
|
MATHEMATICA
| Table[(Binomial[n+8, 7]-If[OddQ[n], 1, 0]Binomial[(n+7)/2, 3])/8, {n, 0, 40}] (* or *) CoefficientList[Series[(1+x^2)/((1-x)^8 (1+x)^4), {x, 0, 40}], x] (* From Harvey P. Dale, June 20 2011 *)
|
|
|
PROG
| (PARI) A031164(n)=(binomial(n+8, 7)-if(n%2, binomial(n\2+4, 3)))>>3 [From M. F. Hasler (www.univ-ag.fr/~mhasler), May 02 2009]
|
|
|
CROSSREFS
| Cf. A000031, A001037, A051168.
Cf. A032094. [From M. F. Hasler (www.univ-ag.fr/~mhasler), May 02 2009]
Sequence in context: A053698 A162867 A059140 * A116600 A074033 A093920
Adjacent sequences: A031161 A031162 A031163 * A031165 A031166 A031167
|
|
|
KEYWORD
| nonn,easy
|
|
|
AUTHOR
| David Broadhurst (D.Broadhurst(AT)open.ac.uk)
|
| |
|
|
