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-6 of 6 results.

A157136 G.f. satisfies: A(x) = Sum_{n>=0} x^(n^2) * A(x)^(n^2).

Original entry on oeis.org

1, 1, 1, 1, 2, 6, 16, 36, 75, 164, 401, 1046, 2718, 6878, 17200, 43486, 112202, 293540, 770535, 2019891, 5296670, 13942944, 36902130, 98097968, 261456388, 697970447, 1866383507, 5001333169, 13432923544, 36154294520, 97475330092, 263188299372
Offset: 0

Views

Author

Paul D. Hanna, Feb 24 2009

Keywords

Comments

Apparently: Number of Dyck n-paths with each ascent length being a square number. [David Scambler, May 09 2012]

Examples

			G.f.: A(x) = 1 + x + x^2 + x^3 + 2*x^4 + 6*x^5 + 16*x^6 + 36*x^7 +...
A(x)^4 = 1 + 4*x + 10*x^2 + 20*x^3 + 39*x^4 + 88*x^5 + 228*x^6 +...
A(x)^9 = 1 + 9*x + 45*x^2 + 165*x^3 + 504*x^4 + 1404*x^5 +...
A(x)^16 = 1 + 16*x + 136*x^2 + 816*x^3 + 3892*x^4 + 15824*x^5 +...
where
A(x) = 1 + x*A(x) + x^4*A(x)^4 + x^9*A(x)^9 + x^16*A(x)^16 +...
A(x) = (1/x)*Series_Reversion(x/(1 + x + x^4 + x^9 + x^16 +...)).

Crossrefs

Cf. A157133, A157134, A157135.

Programs

  • Mathematica
    f[x_, y_, d_] := f[x, y, d] = If[x < 0 || y < x, 0, If[x == 0 && y == 0, 1, f[x-1, y, 0] + f[x, y - If[d == 0, 1, Sqrt[d]*2 + 1], If[d == 0, 1, Sqrt[d]*2 + 1 + d]]]]; Table[f[n, n, 0], {n, 0, 31}] (* David Scambler, May 09 2012 *)
  • PARI
    {a(n)=local(A=1+x+x*O(x^n));for(i=1,n,A=sum(m=0,sqrtint(n),x^(m^2)*A^(m^2)));polcoeff(A,n)}
  • PARI
    seq(n)={Vec(serreverse(x/(1 + sum(i=1, sqrtint(n), x^(i^2))) + O(x*x^n)))} \\ Andrew Howroyd, Apr 28 2018

Formula

G.f. satisfies: A(x) = B(x*A(x)) where B(x) = A(x/B(x)) = Sum_{n>=0} x^(n^2),
where a(n) = [x^n] B(x)^(n+1)/(n+1) for n>=0.
G.f.: A(x) = (1/x)*Series_Reversion( x / Sum_{n>=0} x^(n^2) ).
From Paul D. Hanna, Apr 24 2010: (Start)
SPECIAL VALUES:
. at x = 2*exp(-Pi)/(1+Pi^(1/4)/gamma(3/4)) = 0.04142369369176926261...
. A(x) = B(exp(-Pi)) = (1+Pi^(1/4)/gamma(3/4))/2 = 1.043217405606654...
RADIUS OF CONVERGENCE r:
. at r = 0.3529672118496605771445592553666318566205464502456806...,
. A(r) = 1.9530374869760035836323161721583051467541841357702661...,
where r and A(r) are given by:
. r = z/B(z) and
. A(r) = B(z) = Sum_{n>=0} z^(n^2)
such that z is the real root nearest the origin that satisfies:
. B(z) - z*B'(z) = 0, which has solution:
. z = 0.689358196415787767209694723600383373645983284157633311584643...
Here, B(z) = Sum_{n>=0} z^(n^2), the partial Jacobi theta_3 function.
(End)

A157133 G.f. satisfies: A(x) = Sum_{n>=0} x^(n(n+1)/2) * A(x)^n.

Original entry on oeis.org

1, 1, 1, 2, 4, 7, 14, 30, 62, 129, 278, 604, 1313, 2883, 6386, 14203, 31733, 71272, 160725, 363670, 825653, 1880351, 4293985, 9830499, 22558939, 51880565, 119552907, 276012657, 638348123, 1478749229, 3430799333, 7971134523
Offset: 0

Views

Author

Paul D. Hanna, Feb 24 2009

Keywords

Examples

			G.f.: A(x) = 1 + x + x^2 + 2*x^3 + 4*x^4 + 7*x^5 + 14*x^6 + 30*x^7 +...
A(x)^2 = 1 + 2*x + 3*x^2 + 6*x^3 + 13*x^4 + 26*x^5 + 54*x^6 +...
A(x)^3 = 1 + 3*x + 6*x^2 + 13*x^3 + 30*x^4 + 66*x^5 + 145*x^6 +...
A(x)^4 = 1 + 4*x + 10*x^2 + 24*x^3 + 59*x^4 + 140*x^5 + 326*x^6 +...
where
A(x) = 1 + x*A(x) + x^3*A(x)^2 + x^6*A(x)^3 + x^10*A(x)^4 +...

Crossrefs

Cf. A157134, A157135, A157136.
Cf. A121690. [From Paul D. Hanna, Apr 25 2010]

Programs

  • PARI
    {a(n)=local(A=1+x+x*O(x^n));for(i=1,n,(A=sum(m=0,sqrtint(2*n+1),x^(m*(m+1)/2)*A^m)));polcoeff(A,n)}

Formula

Contribution from Paul D. Hanna, Apr 25 2010: (Start)
G.f. A(x) satisfies the continued fraction:
A(x) = 1/(1- x*A(x)/(1- (x^2-x)*A(x)/(1- x^3*A(x)/(1- (x^4-x^2)*A(x)/(1- x^5*A(x)/(1- (x^6-x^3)*A(x)/(1- x^7*A(x)/(1- (x^8-x^4)*A(x)/(1- ...)))))))))
due to an identity of a partial elliptic theta function.
(End)

A157135 G.f. satisfies: A(x) = Sum_{n>=0} x^(n^2) * A(x)^(n^2+n).

Original entry on oeis.org

1, 1, 2, 5, 15, 50, 177, 649, 2437, 9322, 36214, 142546, 567409, 2280246, 9238883, 37699021, 154783906, 638983998, 2650697658, 11043733080, 46192300706, 193892210528, 816486626337, 3448376227978, 14603301098654, 61996178908151
Offset: 0

Views

Author

Paul D. Hanna, Feb 24 2009

Keywords

Examples

			G.f.: A(x) = 1 + x + 2*x^2 + 5*x^3 + 15*x^4 + 50*x^5 + 177*x^6 +...
A(x)^2 = 1 + 2*x + 5*x^2 + 14*x^3 + 44*x^4 + 150*x^5 + 539*x^6 +...
A(x)^6 = 1 + 6*x + 27*x^2 + 110*x^3 + 435*x^4 + 1716*x^5 +...
A(x)^12 = 1 + 12*x + 90*x^2 + 544*x^3 + 2919*x^4 + 14592*x^5 +...
where
A(x) = 1 + x*A(x)^2 + x^4*A(x)^6 + x^9*A(x)^12 + x^16*A(x)^20 +...

Crossrefs

Cf. A157134, A157133, A157136.

Programs

  • PARI
    {a(n)=local(A=1+x+x*O(x^n));for(i=1,n,(A=sum(m=0,sqrtint(n),x^(m^2)*A^(m*(m+1)))));polcoeff(A,n)}

Formula

G.f. satisfies: A(x) = B(x*A(x)) where B(x) = A(x/B(x)) = g.f. of A157134,
where A157134(n) = [x^n] -1/A(x)^(n-1)/(n-1) for n>1,
and a(n) = [x^n] B(x)^(n+1)/(n+1) for n>=0.

A176720 G.f. satisfies: A(x) = 1 + Sum_{n>=0} 2*x^(n^2)*A(x)^n.

Original entry on oeis.org

1, 2, 4, 8, 18, 44, 112, 288, 744, 1938, 5104, 13584, 36456, 98468, 267376, 729488, 1999074, 5500412, 15189636, 42084952, 116949848, 325878288, 910333152, 2548892864, 7152113760, 20108587038, 56641227416, 159820928328
Offset: 0

Views

Author

Paul D. Hanna, Apr 25 2010

Keywords

Examples

			G.f.: A(x) = 1 + 2*x + 4*x^2 + 8*x^3 + 18*x^4 + 44*x^5 + 112*x^6 +...
A(x) = 1 + 2*x*A(x) + 2*x^4*A(x)^2 + 2*x^9*A(x)^3 + 2*x^16*A(x)^4 + ...

Crossrefs

Cf. A157134, A176719.

Programs

  • PARI
    {a(n)=local(A=1+x);for(i=1,n,A=1+sum(m=1,n,2*(A+x*O(x^n))^m*x^(m^2)));polcoeff(A,n)}

Extensions

Edited by Paul D. Hanna, Apr 27 2010

A191813 G.f. satisfies: A(x) = Sum_{n>=0} x^(n^2)*A(x)^(n^3).

Original entry on oeis.org

1, 1, 1, 1, 2, 10, 46, 166, 504, 1425, 4256, 14594, 55783, 220903, 873199, 3436817, 13569556, 53929244, 215352055, 861477251, 3446980935, 13792641374, 55203566064, 221112089602, 887538377345, 3580304912835, 14573568107348
Offset: 0

Views

Author

Paul D. Hanna, Jun 17 2011

Keywords

Examples

			G.f.: A(x) = 1 + x + x^2 + x^3 + 2*x^4 + 10*x^5 + 46*x^6 + 166*x^7 +...
where the g.f. satisfies:
A(x) = 1 + x*A(x) + x^4*A(x)^8 + x^9*A(x)^27 + x^16*A(x)^64 + x^25*A(x)^125 + x^36*A(x)^216 +...+ x^(n^2)*A(x)^(n^3) +...

Crossrefs

Cf. A157134, A157136, A191814.

Programs

  • PARI
    {a(n)=local(A=1+x);for(i=1,n,A=1+sum(m=1,n,x^(m^2)*(A+x*O(x^n))^(m^3)));polcoeff(A,n)}

A191814 G.f. satisfies: A(x) = Sum_{n>=0} x^(n^2)*A(x)^(n^4).

Original entry on oeis.org

1, 1, 1, 1, 2, 18, 154, 970, 4862, 20879, 83672, 353281, 1773612, 11060634, 84779040, 772415014, 7726721969, 77774342729, 747754441850, 6734769291340, 56695273838174, 448350981091266, 3357088027977272, 24017325363442968
Offset: 0

Views

Author

Paul D. Hanna, Jun 17 2011

Keywords

Examples

			G.f.: A(x) = 1 + x + x^2 + x^3 + 2*x^4 + 18*x^5 + 154*x^6 + 970*x^7 +...
where the g.f. satisfies:
A(x) = 1 + x*A(x) + x^4*A(x)^16 + x^9*A(x)^81 + x^16*A(x)^256 + x^25*A(x)^625 + x^36*A(x)^1296 +...+ x^(n^2)*A(x)^(n^4) +...

Crossrefs

Cf. A157134, A157136, A191813.

Programs

  • PARI
    {a(n)=local(A=1+x);for(i=1,n,A=1+sum(m=1,n,x^(m^2)*(A+x*O(x^n))^(m^4)));polcoeff(A,n)}
Showing 1-6 of 6 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.