A022529 Nexus numbers (n+1)^13-n^13.
1, 8191, 1586131, 65514541, 1153594261, 11839990891, 83828316391, 452866803481, 1992110014441, 7458134171671, 24522712143931, 72470493235141, 195881901213181, 490839666661891, 1152480295105231, 2557404559011121, 5400978405535441, 10918386832765231
Offset: 0
References
- J. H. Conway and R. K. Guy, The Book of Numbers, Copernicus Press, NY, 1996, p. 54.
Links
- Vincenzo Librandi, Table of n, a(n) for n = 0..10000
- Index entries for linear recurrences with constant coefficients, signature (13,-78,286,-715,1287,-1716,1716,-1287,715,-286,78,-13,1).
Programs
-
Magma
[(n+1)^13-n^13: n in [0..20]]; // Vincenzo Librandi, Nov 22 2011
-
Mathematica
q=13;lst={};Do[AppendTo[lst,(n+1)^q-n^q],{n,0,4!}];lst (* Vladimir Joseph Stephan Orlovsky, Jan 23 2009 *) Table[(n+1)^13-n^13,{n,0,20}] (* Vincenzo Librandi, Nov 22 2011 *)
-
PARI
a(n) = (n+1)^13 - n^13; \\ Michel Marcus, Sep 25 2014
Formula
G.f.: -(x^12 +8178*x^11 +1479726*x^10 +45533450*x^9 +423281535*x^8 +1505621508*x^7 +2275172004*x^6 +1505621508*x^5 +423281535*x^4 +45533450*x^3 +1479726*x^2 +8178*x +1) / (x-1)^13. - Colin Barker, Sep 25 2014
G.f.: polylog(-13, x)*(1-x)/x. See the g.f. of the rows of A008292 by Vladeta Jovovic, Sep 02 2002. - Wolfdieter Lang, May 10 2021