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.

Previous Showing 31-40 of 44 results. Next

A022530 Nexus numbers (n+1)^14 - n^14.

Original entry on oeis.org

1, 16383, 4766585, 263652487, 5835080169, 72260648471, 599858908753, 3719823438255, 18478745943857, 77123207545039, 279749833583241, 904168630965623, 2653457921150425, 7174630439858727, 18080919199832609, 42864668012537311, 96320232521472993, 206435541022680095
Offset: 0

Views

Author

Keywords

References

  • J. H. Conway and R. K. Guy, The Book of Numbers, Copernicus Press, NY, 1996, p. 54.

Crossrefs

Column k=13 of A047969.
Cf. A010802 (n^14).

Programs

  • Magma
    [(n+1)^14 - n^14: n in [0..20]]; // G. C. Greubel, Feb 27 2018
  • Maple
    b:=14: a:=n->(n+1)^b-n^b: seq(a(n),n=0..18); # Muniru A Asiru, Feb 28 2018
  • Mathematica
    Last[#]-First[#]&/@Partition[Range[0,20]^14,2,1] (* Harvey P. Dale, Oct 04 2011 *)
    Table[(n+1)^14 - n^14, {n,0,20}] (* G. C. Greubel, Feb 27 2018 *)
  • PARI
    for(n=0,20, print1((n+1)^14 - n^14, ", ")) \\ G. C. Greubel, Feb 27 2018
    

Formula

G.f.: (1+x) *(x^12 +16368*x^11 +4520946*x^10 +193889840*x^9 +2377852335*x^8 +10465410528*x^7 +17505765564*x^6 +10465410528*x^5 +2377852335*x^4 +193889840*x^3 +4520946*x^2 +16368*x+1) / (x-1)^14 . - R. J. Mathar, Sep 02 2016
a(n) = A010802(n+1) - A010802(n). - Michel Marcus, Feb 28 2018

A022531 Nexus numbers (n+1)^15 - n^15.

Original entry on oeis.org

1, 32767, 14316139, 1059392917, 29443836301, 439667406451, 4277376525367, 30436810578889, 170706760005817, 794108867905351, 3177248169415651, 11229773405170717, 35778871439504389, 104382202543721467, 282325794823047151, 715027614225987601, 1709501546902968817
Offset: 0

Views

Author

Keywords

References

  • John H. Conway and Richard K. Guy, The Book of Numbers, Copernicus Press, NY, 1996, p. 54.

Crossrefs

Column k = 14 of A047969.
Cf. A010803 (n^15).

Programs

  • Magma
    [(n+1)^15-n^15: n in [0..20]]; // Vincenzo Librandi, Nov 22 2011
    
  • Maple
    b:=15: a:=n->(n+1)^b-n^b: seq(a(n),n=0..18); # Muniru A Asiru, Feb 28 2018
  • Mathematica
    Table[(n + 1)^15 - n^15, {n, 0, 20}] (* Vincenzo Librandi, Nov 22 2011 *)
    #[[2]]-#[[1]]&/@Partition[Range[0,20]^15,2,1] (* Harvey P. Dale, Aug 07 2022 *)
  • PARI
    for(n=0,20, print1((n+1)^15 - n^15, ", ")) \\ G. C. Greubel, Feb 27 2018

Formula

G.f.: ( -1 - 32752*x - 13824739*x^2 - 848090912*x^3 - 15041229521*x^4 - 102776998928*x^5 - 311387598411*x^6 - 447538817472*x^7 - 311387598411*x^8 - 102776998928*x^9 - 15041229521*x^10 - 848090912*x^11 - 13824739*x^12 - 32752*x^13 - x^14 ) / (x - 1)^15. - R. J. Mathar, Sep 02 2016
a(n) = A010803(n+1) - A010803(n). - Michel Marcus, Feb 28 2018

Extensions

More terms added by G. C. Greubel, Feb 27 2018

A022532 Nexus numbers (n+1)^16-n^16.

Original entry on oeis.org

1, 65535, 42981185, 4251920575, 148292923329, 2668522016831, 30411820662145, 248242046141055, 1571545212141185, 8146979811148159, 35949729863572161, 138934529031464255, 480532350288143425, 1512536728626191295, 4390455017903519489, 11878335717996660991
Offset: 0

Views

Author

Keywords

References

  • J. H. Conway and R. K. Guy, The Book of Numbers, Copernicus Press, NY, 1996, p. 54.

Crossrefs

Column k=15 of A047969.
Cf. A010804 (n^16).

Programs

  • Magma
    [(n+1)^16-n^16: n in [0..20]]; // Vincenzo Librandi, Nov 22 2011
    
  • Maple
    b:=16: a:=n->(n+1)^b-n^b: seq(a(n),n=0..18); # Muniru A Asiru, Feb 28 2018
  • Mathematica
    Table[(n+1)^16-n^16,{n,0,20}] (* Vincenzo Librandi, Nov 22 2011 *)
  • PARI
    for(n=0,20, print1((n+1)^16 - n^16, ", ")) \\ G. C. Greubel, Feb 27 2018

Formula

a(n) = A010804(n+1) - A010804(n). - Michel Marcus, Feb 28 2018

Extensions

More terms added by G. C. Greubel, Feb 27 2018

A022533 Nexus numbers (n+1)^17 - n^17.

Original entry on oeis.org

1, 131071, 129009091, 17050729021, 745759583941, 16163719991611, 215703854542471, 2019169299698041, 14425381885981321, 83322818300333431, 405447028499293771, 1713164078241143221, 6431804812640900941, 21840930809949857971, 68034778606362163471, 196621779843659466481
Offset: 0

Views

Author

Keywords

References

  • J. H. Conway and R. K. Guy, The Book of Numbers, Copernicus Press, NY, 1996, p. 54.

Crossrefs

Column k=16 of A047969.
Cf. A010805 (n^17).

Programs

Formula

a(n) = A010805(n+1) - A010805(n). - Michel Marcus, Feb 27 2018

Extensions

More terms added by G. C. Greubel, Feb 27 2018

A022534 Nexus numbers (n+1)^18 - n^18.

Original entry on oeis.org

1, 262143, 387158345, 68332056247, 3745977788889, 97745259402791, 1526853641242033, 16385984911571535, 132080236787517137, 849905364703000879, 4559917313492231481, 21063415967393012423, 85832073671072149225, 314423447258679349527, 1051013025824763647969
Offset: 0

Views

Author

Keywords

References

  • J. H. Conway and R. K. Guy, The Book of Numbers, Copernicus Press, NY, 1996, p. 54.

Crossrefs

Column k=17 of A047969.
Cf. A010806 (n^18).

Programs

  • Magma
    [(n+1)^18-n^18: n in [0..20]]; // Vincenzo Librandi, Nov 22 2011
    
  • Maple
    b:=18: a:=n->(n+1)^b-n^b: seq(a(n),n=0..18); # Muniru A Asiru, Feb 28 2018
  • Mathematica
    Table[(n+1)^18-n^18,{n,0,20}] (* Vincenzo Librandi, Nov 22 2011 *)
  • PARI
    for(n=0,20, print1((n+1)^18 - n^18, ", ")) \\ G. C. Greubel, Feb 27 2018

Formula

a(n) = A010806(n+1) - A010806(n). - Michel Marcus, Feb 27 2018

Extensions

More terms added by G. C. Greubel, Feb 27 2018

A022535 Nexus numbers (n+1)^19 - n^19.

Original entry on oeis.org

1, 524287, 1161737179, 273715645477, 18798608421181, 590286253682371, 10789535445362647, 132716292890482729, 1206736529597136217, 8649148282327007911, 51159090448414546291, 258320908922208380557, 1142440291004823183829, 4514383668573468286507, 16192074241582091462191
Offset: 0

Views

Author

Keywords

References

  • J. H. Conway and R. K. Guy, The Book of Numbers, Copernicus Press, NY, 1996, p. 54.

Crossrefs

Column k=18 of A047969.
Cf. A010807 (n^19).

Programs

  • Magma
    [(n+1)^19-n^19: n in [0..20]]; // Vincenzo Librandi, Nov 22 2011
    
  • Maple
    b:=19: a:=n->(n+1)^b-n^b: seq(a(n),n=0..18); # Muniru A Asiru, Feb 28 2018
  • Mathematica
    Table[(n+1)^19-n^19,{n,0,20}] (* Vincenzo Librandi, Nov 22 2011 *)
  • PARI
    for(n=0,20, print1((n+1)^19 - n^19, ", ")) \\ G. C. Greubel, Feb 27 2018

Formula

a(n) = A010807(n+1) - A010807(n). - Michel Marcus, Feb 28 2018

Extensions

More terms added by G. C. Greubel, Feb 27 2018

A022536 Nexus numbers (n+1)^20 - n^20.

Original entry on oeis.org

1, 1048575, 3485735825, 1096024843375, 94267920012849, 3560791008422351, 76136107857549025, 1073129238309234975, 11004743954450081825, 87842334540943071199, 572749994932560009201, 3161009997514915112975, 15171203782433324316625, 64663291650404002121775
Offset: 0

Views

Author

Keywords

References

  • J. H. Conway and R. K. Guy, The Book of Numbers, Copernicus Press, NY, 1996, p. 54.

Crossrefs

Column k=19 of A047969.

Programs

  • Magma
    [(n+1)^20 - n^20: n in [0..20]]; // G. C. Greubel, Feb 27 2018
  • Maple
    b:=20: a:=n->(n+1)^b-n^b: seq(a(n),n=0..18); # Muniru A Asiru, Feb 28 2018
  • Mathematica
    Table[(n+1)^20 - n^20, {n,0,20}] (* G. C. Greubel, Feb 27 2018 *)
  • PARI
    for(n=0,20, print1((n+1)^20 - n^20, ", ")) \\ G. C. Greubel, Feb 27 2018
    

Formula

a(n) = A010808(n+1) - A010808(n). - Sean A. Irvine, May 18 2019

Extensions

More terms added by G. C. Greubel, Feb 27 2018

A022537 Nexus numbers (n+1)^21 - n^21.

Original entry on oeis.org

1, 2097151, 10458256051, 4387586157901, 472439111692021, 21460113482174731, 536608913442906151, 8664826172771491801, 100195617094657583401, 890581010868487640791, 6400249944258160101211, 38604869965111541364901, 201059409164080691238301, 924291046880536829143651
Offset: 0

Views

Author

Keywords

References

  • J. H. Conway and R. K. Guy, The Book of Numbers, Copernicus Press, NY, 1996, p. 54.

Crossrefs

Column k=20 of A047969.
Cf. A010809 (n^21).

Programs

  • Magma
    [(n+1)^21 - n^21: n in [0..20]]; // G. C. Greubel, Feb 27 2018
  • Maple
    b:=21: a:=n->(n+1)^b-n^b: seq(a(n),n=0..18); # Muniru A Asiru, Feb 28 2018
  • Mathematica
    Last[#]-First[#]&/@Partition[Range[0,20]^21,2,1] (* Harvey P. Dale, Dec 06 2013 *)
  • PARI
    for(n=0,20, print1((n+1)^21 - n^21, ", ")) \\ G. C. Greubel, Feb 27 2018
    

Formula

a(n) = A010809(n+1) - A010809(n). - Michel Marcus, Feb 27 2018

Extensions

More terms added by G. C. Greubel, Feb 27 2018

A022539 Nexus numbers (n+1)^23 - n^23.

Original entry on oeis.org

1, 8388607, 94134790219, 70274600998837, 11850560210900461, 777809294098524691, 26579017117027313527, 562927063018624735369, 8272642309293795444217, 91137061880347498904071, 795430243255237372246531, 5729307023693999638873597, 35129168146463879355925669
Offset: 0

Views

Author

Keywords

References

  • J. H. Conway and R. K. Guy, The Book of Numbers, Copernicus Press, NY, 1996, p. 54.

Crossrefs

Column k=22 of A047969.
Cf. A010811.

Programs

  • Magma
    [(n+1)^23 - n^23: n in [0..20]]; // G. C. Greubel, Feb 27 2018
  • Maple
    b:=23: a:=n->(n+1)^b-n^b: seq(a(n),n=0..18); # Muniru A Asiru, Feb 28 2018
  • Mathematica
    Differences/@Partition[Range[0,20]^23,2,1]//Flatten (* Harvey P. Dale, Apr 20 2016 *)
  • PARI
    for(n=0,20, print1((n+1)^23 - n^23, ", ")) \\ G. C. Greubel, Feb 27 2018
    

Formula

a(n) = A010811(n+1) - A010811(n). - Michel Marcus, Feb 27 2018

Extensions

Terms a(10) onward added by G. C. Greubel, Feb 27 2018

A022540 Nexus numbers (n+1)^24 - n^24.

Original entry on oeis.org

1, 16777215, 282412759265, 281192547174175, 59323169798679969, 4678776693546226271, 186842850042244797505, 4530785251489078799295, 75044076594002864649665, 920233556923127490136639, 8849732675807611094711841, 69647114527583233038729695, 463303923170979668638153825
Offset: 0

Views

Author

Keywords

References

  • J. H. Conway and R. K. Guy, The Book of Numbers, Copernicus Press, NY, 1996, p. 54.

Crossrefs

Column k=23 of A047969.
Cf. A010812 (n^24).

Programs

  • Magma
    [(n+1)^24 - n^24: n in [0..20]]; // G. C. Greubel, Feb 27 2018
  • Maple
    b:=24: a:=n->(n+1)^b-n^b: seq(a(n),n=0..18); # Muniru A Asiru, Feb 28 2018
  • Mathematica
    Last[#]-First[#]&/@Partition[Range[0,10]^24,2,1] (* Harvey P. Dale, Apr 19 2014 *)
    Table[(n+1)^24 - n^24, {n,0,20}] (* G. C. Greubel, Feb 27 2018 *)
  • PARI
    for(n=0,20, print1((n+1)^24 - n^24, ", ")) \\ G. C. Greubel, Feb 27 2018
    

Formula

a(n) = A010812(n+1) - A010812(n). - Michel Marcus, Feb 27 2018
Previous Showing 31-40 of 44 results. Next