cp's OEIS Frontend

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.

A060345 An expansion related to Yukawa coupling.

Original entry on oeis.org

5, 2875, 4876875, 8564575000, 15517926796875, 28663236110956000, 53621944306062201000, 101216230345800061125625, 192323666400003538944396875, 367299732093982242625847031250, 704288164978454714776724365580000, 1354842473951260627644461070753075500, 2613295702542192770504516764304958585000
Offset: 0

Views

Author

N. J. A. Sloane, Mar 30 2001

Keywords

Comments

Coefficients of 3-point function in dimension 3 [Morrison].

Examples

			a(10) = A060041(1) + 8*A060041(2) + 125*A060041(5) + 1000*A060041(10) = 704288164978454714776724365580000.
		

Crossrefs

Programs

  • PARI
    cumsum(v) = for(i=2, #v, v[i] += v[i-1]); v;
    seq(N, {d=5}) = {
      my(x = 'x + O('x^(N+1)), h = cumsum(vector(d*N, n, 1/n)),
         y0 = sum(n=0, N, (d*n)!/n!^d * x^n),
         y1 = d * sum(n = 1, N, ((d*n)!/n!^d * (h[d*n] - h[n])) * x^n),
         Qx = x * exp(y1/y0), Xq = serreverse(Qx));
      Vec(d * (x * Xq'/Xq)^(d-2) / ((1 - d^d*Xq) * sqr(subst(y0, 'x, Xq))));
    };
    seq(20)  \\ Gheorghe Coserea, Jul 29 2016

Formula

Sum_{n >= 0} a(n)*q^n = 5 + Sum_{n >= 1} A060041(n)*n^3*q^n/(1-q^n).

Extensions

More terms from Vladeta Jovovic, Apr 01 2001
a(6) corrected and a(10)-a(12) added by Gheorghe Coserea, Jul 28 2016