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.

Showing 1-3 of 3 results.

A224607 a(n) = A219331(n^2).

Original entry on oeis.org

1, 5, 28, 269, 6181, 286790, 26808447, 5037694829, 1902773895751, 1444565587750055, 2204357811343981558, 6761166975496300074014, 41682712965722542326438411, 516517498759950258411494666787, 12864972023450485679400300069493738
Offset: 1

Views

Author

Paul D. Hanna, Apr 12 2013

Keywords

Comments

A219331 is the logarithmic derivative of A006456, where A006456(n) is the number of compositions of n into sums of squares.

Examples

			L.g.f.: L(x) = x + 5*x^2/2 + 28*x^3/3 + 269*x^4/4 + 6181*x^5/5 + 286790*x^6/6 +...
where
exp(L(x)) = 1 + x + 3*x^2 + 12*x^3 + 81*x^4 + 1335*x^5 + 49309*x^6 + 3882180*x^7 +...+ A224608(n)*x^n +...

Crossrefs

Cf. A224608, A219331, A006456, A224366.

Programs

  • PARI
    {a(n)=n^2*polcoeff(-log(1-sum(r=1,n,x^(r^2)+x*O(x^(n^2)))),n^2)}
for(n=1,30,print1(a(n),", "))

Formula

Logarithmic derivative of A224608.

A224608 G.f.: exp( Sum_{n>=1} A219331(n^2)*x^n/n ).

Original entry on oeis.org

1, 1, 3, 12, 81, 1335, 49309, 3882180, 633703214, 212061201327, 144669917959584, 200541263416077021, 563631413420071614333, 3206926569346230863485855, 36897315109526505791310840932, 857701705296285206387609947414980, 40254707002970300021370965171570478599
Offset: 0

Views

Author

Paul D. Hanna, Apr 12 2013

Keywords

Comments

A219331 is the logarithmic derivative of A006456, where A006456(n) is the number of compositions of n into sums of squares.

Examples

			G.f.: A(x) = 1 + x + 3*x^2 + 12*x^3 + 81*x^4 + 1335*x^5 + 49309*x^6 +...
where
log(A(x)) = x + 5*x^2/2 + 28*x^3/3 + 269*x^4/4 + 6181*x^5/5 + 286790*x^6/6 +...+ A219331(n^2)*x^n/n +...

Crossrefs

Cf. A224607, A219331, A006456, A224366.

Programs

  • PARI
    {A219331(n)=n*polcoeff(-log(1-sum(r=1,sqrtint(n+1),x^(r^2)+x*O(x^n))),n)}
{a(n)=polcoeff(exp(sum(m=1,n,A219331(m^2)*x^m/m)+x*O(x^n)),n)}
for(n=0,20,print1(a(n),", "))

Formula

Logarithmic derivative yields A224607, where A224607(n) = A219331(n^2).

A224678 L.g.f.: -log(1 - Sum_{n>=1} x^(n*(n+1)/2)) = Sum_{n>=1} a(n)*x^n/n.

Original entry on oeis.org

1, 1, 4, 5, 6, 16, 22, 29, 49, 86, 122, 188, 300, 456, 714, 1117, 1718, 2653, 4124, 6390, 9916, 15368, 23806, 36884, 57181, 88622, 137344, 212896, 329934, 511316, 792516, 1228285, 1903598, 2950334, 4572602, 7086833, 10983562, 17022956, 26382984, 40889694, 63373086, 98218920
Offset: 1

Views

Author

Paul D. Hanna, Apr 14 2013

Keywords

Examples

			L.g.f.: L(x) = x + x^2/2 + 4*x^3/3 + 5*x^4/4 + 6*x^5/5 + 16*x^6/6 + 22*x^7/7 + 29*x^8/8 + 49*x^9/9 + 86*x^10/10 +...
where
exp(L(x)) = 1 + x + x^2 + 2*x^3 + 3*x^4 + 4*x^5 + 7*x^6 + 11*x^7 + 16*x^8 + 25*x^9 + 40*x^10 + 61*x^11 + 94*x^12 +...+ A023361(n)*x^n +...
exp(-L(x)) = 1 - x - x^3 - x^6 - x^10 - x^21 - x^28 +...+ -x^(n*(n+1)/2) +...

Crossrefs

Cf. A023361, A219331, A224680.

Programs

  • PARI
    {a(n)=n*polcoeff(-log(1-sum(r=1, sqrtint(2*n+1), x^(r*(r+1)/2)+x*O(x^n))), n)}
for(n=1, 50, print1(a(n), ", "))

Formula

Logarithmic derivative of A023361, where A023361(n) = number of compositions of n into positive triangular numbers.
Showing 1-3 of 3 results.

Started in 1964 by Neil J. A. Sloane | Maintained by The OEIS Foundation Inc.

Content is available under The OEIS End-User License Agreement.