login
A131473
a(n) = n^6 - n.
1
0, 0, 62, 726, 4092, 15620, 46650, 117642, 262136, 531432, 999990, 1771550, 2985972, 4826796, 7529522, 11390610, 16777200, 24137552, 34012206, 47045862, 63999980, 85766100, 113379882, 148035866, 191102952, 244140600, 308915750
OFFSET
0,3
LINKS
MAPLE
A131473:=n->n^6-n; seq(A131473(n), n=0..30); # Wesley Ivan Hurt, Feb 25 2014
MATHEMATICA
f[n_]:=n^6-n; f[Range[0, 60]] (* Vladimir Joseph Stephan Orlovsky, Feb 10 2011 *)
Array[#^6-#&, 60, 0] (* Harvey P. Dale, Aug 10 2011 *)
PROG
(Sage) [lucas_number1(3, n^3, n) for n in range(0, 27)] # Zerinvary Lajos, May 16 2009
(Magma) [n^6-n: n in [0..30]]; // Vincenzo Librandi, Aug 11 2011
CROSSREFS
KEYWORD
nonn
AUTHOR
Mohammad K. Azarian, Jul 27 2007
STATUS
approved