|
| |
|
|
A022522
|
|
Nexus numbers (n+1)^6-n^6.
|
|
18
|
|
|
|
1, 63, 665, 3367, 11529, 31031, 70993, 144495, 269297, 468559, 771561, 1214423, 1840825, 2702727, 3861089, 5386591, 7360353, 9874655, 13033657, 16954119, 21766121, 27613783, 34655985, 43067087, 53037649, 64775151, 78504713, 94469815, 112933017, 134176679
(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
Eric Weisstein's World of Mathematics, Nexus Number
Index entries for linear recurrences with constant coefficients, signature (6,-15,20,-15,6,-1).
|
|
|
FORMULA
|
G.f.: (x+1)*(x^4+56*x^3+246*x^2+56*x+1) / (x-1)^6. - Colin Barker, Dec 21 2012
a(n) = A005408(n) * A243201(n). - Mathew Englander, Jun 06 2014
a(n) = A001014(n+1) - A001014(n). - Wesley Ivan Hurt, Jun 06 2014
|
|
|
MAPLE
|
A022522:=n->(n + 1)^6 - n^6; seq(A022522(n), n=0..30); # Wesley Ivan Hurt, Jan 30 2014
|
|
|
MATHEMATICA
|
lst={}; Do[a=n^3; b=(n+1)^3; s=(a+b)*(b-a); AppendTo[lst, s], {n, 0, 5!}]; lst (* Vladimir Joseph Stephan Orlovsky, Jan 23 2009 *)
Table[(n+1)^6-n^6, {n, 0, 30}] (* Vincenzo Librandi, Nov 22 2011 *)
|
|
|
PROG
|
(MAGMA) [(n+1)^6-n^6: n in [0..30]]; // Vincenzo Librandi, Nov 22 2011
(PARI) a(n)=(n+1)^6-n^6 \\ Charles R Greathouse IV, Sep 24 2015
|
|
|
CROSSREFS
|
A row of A047969.
Beginning with n=1, a subsequence of A181125 (difference of two positive 6th powers). - Mathew Englander, Jun 01 2014
Sequence in context: A228262 A181125 A228221 * A152731 A090028 A152725
Adjacent sequences: A022519 A022520 A022521 * A022523 A022524 A022525
|
|
|
KEYWORD
|
nonn,easy
|
|
|
AUTHOR
|
N. J. A. Sloane, Jun 14 1998
|
|
|
EXTENSIONS
|
More terms from Colin Barker, Dec 21 2012
|
|
|
STATUS
|
approved
|
| |
|
|
