|
| |
|
|
A022529
|
|
Nexus numbers (n+1)^13-n^13.
|
|
1
|
|
|
|
1, 8191, 1586131, 65514541, 1153594261, 11839990891, 83828316391, 452866803481, 1992110014441, 7458134171671, 24522712143931, 72470493235141, 195881901213181, 490839666661891, 1152480295105231, 2557404559011121, 5400978405535441, 10918386832765231
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
OFFSET
|
0,2
|
|
|
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).
|
|
|
FORMULA
|
a(n) = A010801(n+1) - A010801(n). - Michel Marcus, Sep 25 2014
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
|
|
|
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 *)
|
|
|
PROG
|
(MAGMA) [(n+1)^13-n^13: n in [0..20]]; // Vincenzo Librandi, Nov 22 2011
(PARI) a(n) = (n+1)^13 - n^13; \\ Michel Marcus, Sep 25 2014
|
|
|
CROSSREFS
|
Sequence in context: A161010 A075955 A075956 * A161024 A022195 A069388
Adjacent sequences: A022526 A022527 A022528 * A022530 A022531 A022532
|
|
|
KEYWORD
|
nonn,easy
|
|
|
AUTHOR
|
N. J. A. Sloane.
|
|
|
STATUS
|
approved
|
| |
|
|
