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

A204270 a(n) = tau(n)*Pell(n), where tau(n) = A000005(n), the number of divisors of n.

Original entry on oeis.org

1, 4, 10, 36, 58, 280, 338, 1632, 2955, 9512, 11482, 83160, 66922, 323128, 780100, 2354160, 2273378, 16465260, 13250218, 95966568, 154455860, 372889432, 450117362, 4346717760, 3935214363, 12667263848, 30581480180, 110745336312, 89120964298
Offset: 1

Views

Author

Paul D. Hanna, Jan 14 2012

Keywords

Comments

Compare g.f. to the Lambert series identity: Sum_{n>=1} x^n/(1-x^n) = Sum_{n>=1} tau(n)*x^n.
Related identities:
(1) Sum_{n>=1} n^k*Pell(n)*x^n/(1 - A002203(n)*x^n + (-1)^n*x^(2*n)) = Sum_{n>=1} sigma_{k}(n)*Pell(n)*x^n for k>=0.
(2) Sum_{n>=1} phi(n)*Pell(n)*x^n/(1 - A002203(n)*x^n + (-1)^n*x^(2*n)) = Sum_{n>=1} n*Pell(n)*x^n.
(3) Sum_{n>=1} moebius(n)*Pell(n)*x^n/(1 - A002203(n)*x^n + (-1)^n*x^(2*n)) = x.
(4) Sum_{n>=1} lambda(n)*Pell(n)*x^n/(1 - A002203(n)*x^n + (-1)^n*x^(2*n)) = Sum_{n>=1} Pell(n^2)*x^(n^2).

Examples

			G.f.: A(x) = 1 + 4*x + 10*x^2 + 36*x^3 + 58*x^4 + 280*x^5 + 338*x^6 +...
where A(x) = x/(1-2*x-x^2) + 2*x^2/(1-6*x^2+x^4) + 5*x^3/(1-14*x^3-x^6) + 12*x^4/(1-34*x^4+x^8) + 29*x^5/(1-82*x^5-x^10) + 70*x^6/(1-198*x^6+x^12) +...+ Pell(n)*x^n/(1 - A002203(n)*x^n + (-1)^n*x^(2*n)) +...

Links

Crossrefs

Cf. A203847, A204271, A204272, A204273, A204274, A204275, A000005 (tau), A002203, A000045.

Programs

  • Mathematica
    Table[DivisorSigma[0, n] Fibonacci[n, 2], {n, 1, 50}] (* G. C. Greubel, Jan 05 2018 *)
  • PARI
    /* Subroutines used in PARI programs below: */
{Pell(n)=polcoeff(x/(1-2*x-x^2+x*O(x^n)), n)}
{A002203(n)=polcoeff(2*(1-x)/(1-2*x-x^2+x*O(x^n)), n)}
  • PARI
    {a(n)=sigma(n,0)*Pell(n)}
  • PARI
    {a(n)=polcoeff(sum(m=1,n,Pell(m)*x^m/(1-A002203(m)*x^m+(-1)^m*x^(2*m)+x*O(x^n))),n)}

Formula

G.f.: Sum_{n>=1} Pell(n)*x^n/(1 - A002203(n)*x^n + (-1)^n*x^(2*n)) = Sum_{n>=1} tau(n)*Pell(n)*x^n, where Pell(n) = A000129(n) and A002203 is the companion Pell numbers.

A204271 a(n) = sigma(n)*Pell(n), where sigma(n) = A000203(n), the sum of divisors of n.

Original entry on oeis.org

1, 6, 20, 84, 174, 840, 1352, 6120, 12805, 42804, 68892, 388080, 468454, 1938768, 4680600, 14595792, 20460402, 107024190, 132502180, 671765976, 1235646880, 3356004888, 5401408344, 32600383200, 40663881751, 133006270404, 305814801800
Offset: 1

Views

Author

Paul D. Hanna, Jan 14 2012

Keywords

Comments

Compare g.f. to the Lambert series identity: Sum_{n>=1} n*x^n/(1-x^n) = Sum_{n>=1} sigma(n)*x^n.

Examples

			G.f.: A(x) = x + 6*x^2 + 20*x^3 + 84*x^4 + 174*x^5 + 840*x^6 + 1352*x^7 +...
where A(x) = x/(1-2*x-x^2) + 2*2*x^2/(1-6*x^2+x^4) + 3*5*x^3/(1-14*x^3-x^6) + 4*12*x^4/(1-34*x^4+x^8) + 5*29*x^5/(1-82*x^5-x^10) + 6*70*x^6/(1-198*x^6+x^12) +...+ n*Pell(n)*x^n/(1 - A002203(n)*x^n + (-1)^n*x^(2*n)) +...

Links

Crossrefs

Cf. A000203 (sigma), A000129, A203848, A204270, A204272, A204273, A204274, A204275, A002203, A000045.

Programs

  • Mathematica
    Table[DivisorSigma[1, n] Fibonacci[n, 2], {n, 1, 50}] (* G. C. Greubel, Jan 05 2018 *)
  • PARI
    /* Subroutines used in PARI programs below: */
{Pell(n)=polcoeff(x/(1-2*x-x^2+x*O(x^n)), n)}
{A002203(n)=polcoeff(2*(1-x)/(1-2*x-x^2+x*O(x^n)), n)}
  • PARI
    {a(n)=sigma(n)*Pell(n)}
  • PARI
    {a(n)=polcoeff(sum(m=1,n,m*Pell(m)*x^m/(1-A002203(m)*x^m+(-1)^m*x^(2*m)+x*O(x^n))),n)}

Formula

G.f.: Sum_{n>=1} n*Pell(n)*x^n/(1 - A002203(n)*x^n + (-1)^n*x^(2*n)) = Sum_{n>=1} sigma(n)*Pell(n)*x^n, where Pell(n) = A000129(n) and A002203 is the companion Pell numbers.

A204272 a(n) = sigma_2(n)*Pell(n), where sigma_2(n) = A001157(n), the sum of squares of divisors of n.

Original entry on oeis.org

1, 10, 50, 252, 754, 3500, 8450, 34680, 89635, 309140, 700402, 2910600, 5688370, 20195500, 50706500, 160553712, 329639810, 1248615550, 2398289458, 8732957688, 19306982500, 56865638380, 119281100930, 461838762000, 853941516771
Offset: 1

Views

Author

Paul D. Hanna, Jan 14 2012

Keywords

Comments

Compare g.f. to the Lambert series identity: Sum_{n>=1} n^2*x^n/(1-x^n) = Sum_{n>=1} sigma_2(n)*x^n.

Examples

			G.f.: A(x) = x + 10*x^2 + 50*x^3 + 252*x^4 + 754*x^5 + 3500*x^6 +...
where A(x) = x/(1-2*x-x^2) + 2^2*2*x^2/(1-6*x^2+x^4) + 3^2*5*x^3/(1-14*x^3-x^6) + 4^2*12*x^4/(1-34*x^4+x^8) + 5^2*29*x^5/(1-82*x^5-x^10) + 6^2*70*x^6/(1-198*x^6+x^12) +...+ n^2*Pell(n)*x^n/(1 - A002203(n)*x^n + (-1)^n*x^(2*n)) +...

Links

Crossrefs

Cf. A203849, A204270, A204271, A204273, A204274, A204275, A001157 (sigma_2), A002203, A000045.

Programs

  • Mathematica
    With[{nn=30},Times@@@Thread[{Rest[LinearRecurrence[{2,1},{0,1},nn+1]], DivisorSigma[ 2,Range[nn]]}]] (* Harvey P. Dale, Oct 21 2015 *)
  • PARI
    /* Subroutines used in PARI programs below: */
{Pell(n)=polcoeff(x/(1-2*x-x^2+x*O(x^n)), n)}
{A002203(n)=polcoeff(2*(1-x)/(1-2*x-x^2+x*O(x^n)), n)}
  • PARI
    {a(n)=sigma(n,2)*Pell(n)}
  • PARI
    {a(n)=polcoeff(sum(m=1,n,m^2*Pell(m)*x^m/(1-A002203(m)*x^m+(-1)^m*x^(2*m)+x*O(x^n))),n)}

Formula

G.f.: Sum_{n>=1} n^2*Pell(n)*x^n/(1 - A002203(n)*x^n + (-1)^n*x^(2*n)) = Sum_{n>=1} sigma_2(n)*Pell(n)*x^n, where Pell(n) = A000129(n) and A002203 is the companion Pell numbers.

A204273 a(n) = sigma_3(n)*Pell(n), where sigma_3(n) = A001158(n), the sum of cubes of divisors of n.

Original entry on oeis.org

1, 18, 140, 876, 3654, 17640, 58136, 238680, 745645, 2696652, 7647012, 28329840, 73547278, 250101072, 688048200, 2203964592, 5585689746, 18696302730, 45448247740, 147116748744, 371929710880, 1117549627704, 2738514030408, 8899904613600
Offset: 1

Views

Author

Paul D. Hanna, Jan 14 2012

Keywords

Comments

Compare g.f. to the Lambert series identity: Sum_{n>=1} n^3*x^n/(1-x^n) = Sum_{n>=1} sigma_3(n)*x^n.

Examples

			G.f.: A(x) = x + 18*x^2 + 140*x^3 + 876*x^4 + 3654*x^5 + 17640*x^6 + ...
where A(x) = x/(1-2*x-x^2) + 2^3*2*x^2/(1-6*x^2+x^4) + 3^3*5*x^3/(1-14*x^3-x^6) + 4^3*12*x^4/(1-34*x^4+x^8) + 5^3*29*x^5/(1-82*x^5-x^10) + 6^3*70*x^6/(1-198*x^6+x^12) + ... + n^3*Pell(n)*x^n/(1 - A002203(n)*x^n + (-1)^n*x^(2*n)) + ...

Links

Crossrefs

Cf. A203838, A204270, A204271, A204272, A204274, A204275, A001158 (sigma_3), A002203, A000045.

Programs

  • Mathematica
    Table[DivisorSigma[3, n] Fibonacci[n, 2], {n, 1, 50}] (* G. C. Greubel, Jan 05 2018 *)
  • PARI
    /* Subroutines used in PARI programs below: */
{Pell(n)=polcoeff(x/(1-2*x-x^2+x*O(x^n)), n)}
{A002203(n)=polcoeff(2*(1-x)/(1-2*x-x^2+x*O(x^n)), n)}
  • PARI
    {a(n)=sigma(n,3)*Pell(n)}
  • PARI
    {a(n)=polcoeff(sum(m=1,n,m^3*Pell(m)*x^m/(1-A002203(m)*x^m+(-1)^m*x^(2*m)+x*O(x^n))),n)}

Formula

G.f.: Sum_{n>=1} n^3*Pell(n)*x^n/(1 - A002203(n)*x^n + (-1)^n*x^(2*n)) = Sum_{n>=1} sigma_3(n)*Pell(n)*x^n, where Pell(n) = A000129(n) and A002203 is the companion Pell numbers.

A204327 a(n) = Pell(n^2).

Original entry on oeis.org

1, 12, 985, 470832, 1311738121, 21300003689580, 2015874949414289041, 1111984844349868137938112, 3575077977948634627394046618865, 66992092050551637663438906713182313772, 7316660981177400006023755031791634132229378601
Offset: 1

Views

Author

Paul D. Hanna, Jan 14 2012

Keywords

Examples

			G.f.: A(x) = x + 12*x^2 + 985*x^3 + 470832*x^4 + 1311738121*x^5 +...

Links

Crossrefs

Cf. A000129 (Pell), A000290 (n^2), A204274, A165938, A165937, A166879, A054783.

Programs

  • PARI
    {Pell(n)=polcoeff(x/(1-2*x-x^2+x*O(x^n)), n)}
{a(n)=Pell(n^2)}

Formula

a(n) = ( (1+sqrt(2))^(n^2) - (1-sqrt(2))^(n^2) ) / (2*sqrt(2)).
Showing 1-5 of 5 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.