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

A144941 Numbers k such that 6*k-1 = A144796(k).

Original entry on oeis.org

1, 36, 753, 41348, 868769, 47715364, 1002558481, 55063488516, 1156951618113, 63543218031908, 1335121164743729, 73328818545333124, 1540728667162644961, 84621393058096392996, 1777999546784527541073, 97653014260224692184068
Offset: 1

Views

Author

Richard Choulet, Sep 26 2008

Keywords

Comments

Also the index of a pentagonal number which is equal to the sum of two consecutive pentagonal numbers. - Colin Barker, Dec 22 2014

Examples

			a(1) = 1 because 6*1 - 1 = 5 = A144796(1).
		

Crossrefs

Programs

  • GAP
    a:=[1,36,753,41348,868769];; for n in [6..30] do a[n]:=a[n-1] +1154*a[n-2]-1154*a[n-3]-a[n-4]+a[n-5]; od; a; # G. C. Greubel, Mar 16 2019
  • Magma
    R:=PowerSeriesRing(Integers(), 30); Coefficients(R!( x*(1+ 35*x-437*x^2+205*x^3+4*x^4)/((1-x)*(1-34*x+x^2)*(1+34*x+x^2)) )); // G. C. Greubel, Mar 16 2019
    
  • Mathematica
    LinearRecurrence[{1,1154,-1154,-1,1},{1,36,753,41348,868769},30] (* Harvey P. Dale, Dec 27 2018 *)
  • PARI
    Vec(-x*(1+35*x-437*x^2+205*x^3+4*x^4) / ((x-1)*(x^2-34*x+1)*(x^2+34*x+1)) + O(x^30)) \\ Colin Barker, Dec 22 2014
    
  • Sage
    a=(x*(1+ 35*x-437*x^2+205*x^3+4*x^4)/((1-x)*(1-34*x+x^2)*(1+34*x +x^2))).series(x, 30).coefficients(x, sparse=False); a[1:] # G. C. Greubel, Mar 16 2019
    

Formula

For the odd and even indices respectively the same recurrence is obtained: a(n+2) = 1154*a(n+1) - a(n) - 192.
We also have a(n+2) = 577*a(n+1) - 96 + 68*sqrt((72*a(n)^2-24*a(n)-32)).
G.f.: x*(1 + 35*x - 437*x^2 + 205*x^3 + 4*x^4) / ((1-x)*(1 - 34*x + x^2)*(1 + 34*x + x^2)). - R. J. Mathar, Nov 27 2011

Extensions

a(6) corrected and sequence extended by R. J. Mathar, Nov 27 2011

A144942 Expansion of x^2*(3*x^3+145*x^2-507*x-25) / ((x-1)*(x^2-34*x+1)*(x^2+34*x+1)).

Original entry on oeis.org

0, 25, 532, 29237, 614312, 33739857, 708915900, 38935766125, 818088334672, 44931840368777, 944073229295972, 51851304849802917, 1089459688519217400, 59836360864832197825, 1257235536477947584012, 69051108586711506487517, 1450848719635862992732832
Offset: 1

Views

Author

Richard Choulet, Sep 26 2008

Keywords

Comments

Also the index of the first of two consecutive pentagonal numbers whose sum is also a pentagonal number. - Colin Barker, Dec 22 2014

Crossrefs

Programs

  • Mathematica
    CoefficientList[Series[x (3 x^3 + 145 x^2 - 507 x - 25)/((x - 1) (x^2 - 34 x + 1) (x^2 + 34 x + 1)), {x, 0, 20}], x] (* Vincenzo Librandi, Oct 20 2014 *)
    LinearRecurrence[{1,1154,-1154,-1,1},{0,25,532,29237,614312},20] (* Harvey P. Dale, Jun 16 2025 *)
  • PARI
    concat(0, Vec(x^2*(3*x^3+145*x^2-507*x-25)/((x-1)*(x^2-34*x+1)*(x^2+34*x+1)) + O(x^20))) \\ Colin Barker, Oct 20 2014

Extensions

a(6) corrected, and more terms from Colin Barker, Oct 20 2014
Edited, name changed by Colin Barker, Oct 20 2014
Showing 1-2 of 2 results.