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.

A132262 First term in a sum partition of the even-indexed Fibonacci numbers.

Original entry on oeis.org

1, 2, 7, 29, 130, 611, 2965, 14726, 74443, 381617, 1978582, 10355303, 54628201, 290148890, 1550177791, 8324934533, 44911554826, 243274479131, 1322555721037, 7213659006350, 39462884371891, 216470673634217, 1190382865461742, 6560913758341199
Offset: 0

Views

Author

Ph. Fahr and Claus Michael Ringel, Aug 19 2007

Keywords

Comments

This is the number in the center of the 3-regular tree when the exceptional representations of the 3-Kronecker quiver, whose dimension vector is given by subsequent even-indexed Fibonacci numbers are drawn into the 3-regular tree (the universal cover of the quiver).

Examples

			a(3) = 29 because 377 = 29 + 6*18 + 24*6 + 96*1.
		

Crossrefs

Cf. A110122.

Programs

  • Maple
    a:= proc(n) option remember; `if`(n<4, [1, 2, 7, 29][n+1],
           ((13*n-9)*a(n-1) -(44*n-66)*a(n-2)
           +(13*n-30)*a(n-3) -(n-3)*a(n-4))/n)
        end:
    seq(a(n), n=0..30);  # Alois P. Heinz, Jun 19 2013
  • Mathematica
    a[n_] := a[n] = If[n<4, {1, 2, 7, 29}[[n+1]], ((13*n-9)*a[n-1] - (44*n-66)*a[n-2] + (13*n-30)*a[n-3] - (n-3)*a[n-4])/n]; Table[a[n], {n, 0, 30}] (* Jean-François Alcover, Jan 07 2016, after Alois P. Heinz *)
  • PARI
    lista(nn) = my(q = qq + O(qq^nn)); gf = (3*sqrt(1-6*q+q^2) -(1+q))/(2*(1-7*q+q^2)); Vec(gf) \\ Michel Marcus, Jun 19 2013

Formula

G.f.: (3*sqrt(1-6*q+q^2)-(1+q))/(2*(1-7*q+q^2)) = 1 +2q +7q^2 +29q^3 +130q^4 + ... . Michael David Hirschhorn, Sep 03 2009
a(n) ~ 3*sqrt(3*sqrt(2)-4) * (3+2*sqrt(2))^(n+1) / (2*sqrt(Pi) * n^(3/2)). - Vaclav Kotesovec, Sep 08 2014
D-finite with recurrence n*a(n) + (-13*n+9)*a(n-1) + 22*(2*n-3)*a(n-2) + (-13*n+30)*a(n-3) + (n-3)*a(n-4) = 0. - R. J. Mathar, Aug 28 2015