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.

A048924 9-gonal octagonal numbers.

Original entry on oeis.org

1, 631125, 286703855361, 130242107189808901, 59165603001256545014625, 26877395137662573622784125461, 12209701798707362366915379264832801, 5546550074879110936730454426529871893125
Offset: 1

Views

Author

Keywords

Comments

As n increases, this sequence is approximately geometric with common ratio r = lim_{n->infinity} a(n)/a(n-1) = (sqrt(6) + sqrt(7))^8 = 227137 + 35048*sqrt(42). - Ant King, Jan 03 2012

Crossrefs

Programs

  • Magma
    I:=[1, 631125, 286703855361]; [n le 3 select I[n] else 454275*Self(n-1)-454275*Self(n-2)+Self(n-3): n in [1..10]]; // Vincenzo Librandi, Dec 24 2011
  • Mathematica
    LinearRecurrence[{454275,-454275,1},{1,631125,286703855361},30] (* Vincenzo Librandi, Dec 24 2011 *)

Formula

a(n) = 454275*a(n-1) - 454275*a(n-2) + a(n-3). - Vincenzo Librandi, Dec 24 2011
From Ant King, Jan 03 2012: (Start)
G.f.: x*(1 + 176850*x + 261*x^2) / ((1-x)*(1 - 454274*x + x^2)).
a(n) = 454274*a(n-1) - a(n-2) + 177112.
a(n) = (1/672)*((11*sqrt(7) - 9*sqrt(6))*(sqrt(6) + sqrt(7))^(8*n-5) - (11*sqrt(7) + 9*sqrt(6))*(sqrt(6) - sqrt(7))^(8*n-5) - 262).
a(n) = floor((1/672)*(11*sqrt(7) - 9*sqrt(6))*(sqrt(6) + sqrt(7))^(8*n-5)). (End)

A048922 Indices of 9-gonal numbers which are also octagonal.

Original entry on oeis.org

1, 425, 286209, 192904201, 130017145025, 87631362842409, 59063408538638401, 39808649723679439625, 26830970850351403668609, 18084034544487122393202601, 12188612452013470141614884225
Offset: 1

Views

Author

Keywords

Comments

As n increases, this sequence is approximately geometric with common ratio r = lim_{n->infinity} a(n)/a(n-1) = (sqrt(6) + sqrt(7))^4 = 337 + 52*sqrt(42). - Ant King, Jan 03 2012

Crossrefs

Programs

  • Magma
    I:=[1, 425, 286209]; [n le 3 select I[n] else 675*Self(n-1)-675*Self(n-2)+1*Self(n-3): n in [1..20]]; // Vincenzo Librandi, Dec 23 2011
  • Mathematica
    LinearRecurrence[{675,-675,1},{1,425,286209},30] (* Vincenzo Librandi, Dec 23 2011 *)
    Join[{1},Transpose[NestList[{Last[#],674Last[#]-First[#]-240}&, {1,425}, 10]][[2]]] (* Harvey P. Dale, Feb 05 2012 *)

Formula

G.f.: -x*(1 - 250*x + 9*x^2) / ( (x-1)*(x^2 - 674*x + 1) ). - R. J. Mathar, Dec 21 2011
From Ant King, Jan 03 2012: (Start)
a(n) = 674*a(n-1) - a(n-2) - 240.
a(n) = (1/84)*((sqrt(6) + 3*sqrt(7))*(sqrt(6) + sqrt(7))^(4*n-3) + (sqrt(6) - 3*sqrt(7))*(sqrt(6) - sqrt(7))^(4*n-3) + 30).
a(n) = ceiling((1/84)*(sqrt(6) + 3*sqrt(7))*(sqrt(6) + sqrt(7))^(4*n-3)). (End)
Showing 1-2 of 2 results.