|
|
A147979
|
|
8^n-7^n-6^n-5^n-4^n-3^n-2^n-1.
|
|
6
|
|
|
-6, -20, -76, -272, -580, 3760, 77324, 896848, 8869820, 81550960, 719926124, 6196609168, 52439953820, 438516694960, 3635082523724, 29935019892688, 245264010263420, 2001462391659760, 16280541150478124, 132087583623451408
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
FORMULA
|
G.f.: 2*x*(49752*x^7-105056*x^6+87794*x^5-38129*x^4+9380*x^3-1316*x^2+98*x-3)/((x-1)*(2*x-1)*(3*x-1)*(4*x-1)*(5*x-1)*(6*x-1)*(7*x-1)*(8*x-1)). - Colin Barker, Oct 29 2012
|
|
MATHEMATICA
|
lst={}; Do[p=8^n-7^n-6^n-5^n-4^n-3^n-2^n-1^n; AppendTo[lst, p], {n, 0, 5!}]; lst
Table[8^n-Total[Range[7]^n], {n, 0, 20}] (* or *) LinearRecurrence[{36, -546, 4536, -22449, 67284, -118124, 109584, -40320}, {-6, -20, -76, -272, -580, 3760, 77324, 896848}, 20] (* Harvey P. Dale, Nov 15 2014 *)
|
|
PROG
|
|
|
CROSSREFS
|
|
|
KEYWORD
|
sign,easy
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|