A024083 a(n) = 7^n - n^8.

1, 6, -207, -6218, -63135, -373818, -1561967, -4941258, -11012415, -2693114, 182475249, 1762967862, 13411305505, 96073279686, 676747283793, 4744998619318, 33228635602305, 232623538229766, 1628402577949873

Offset

0,2

Links

Vincenzo Librandi, Table of n, a(n) for n = 0..400

Index entries for linear recurrences with constant coefficients, signature (16, -99, 336, -714, 1008, -966, 624, -261, 64, -7).

Formula

a(0)=1, a(1)=6, a(2)=-207, a(3)=-6218, a(4)=-63135, a(5)=-373818, a(6)=-1561967, a(7)=-4941258, a(8)=-11012415, a(9)=-2693114, a(n)= 16*a(n-1) - 99*a(n-2) + 336*a(n-3) - 714*a(n-4) + 1008*a(n-5) - 966*a(n-6) + 624*a(n-7) - 261*a(n-8) + 64*a(n-9) - 7*a(n-10). - Harvey P. Dale, Jul 12 2014

Maple

seq(7^k-k^8, k=0..20); # Muniru A Asiru, Jul 15 2018

Mathematica

Table[7^n-n^8, {n, 0, 60}] (* Vladimir Joseph Stephan Orlovsky, Feb 15 2011 *)
LinearRecurrence[{16, -99, 336, -714, 1008, -966, 624, -261, 64, -7}, {1, 6, -207, -6218, -63135, -373818, -1561967, -4941258, -11012415, -2693114}, 20] (* Harvey P. Dale, Jul 12 2014 *)

Prog

(Magma) [7^n-n^8: n in [0..20]]; // Vincenzo Librandi, Jul 04 2011
(GAP) List([0..20], n->7^n-n^8); # Muniru A Asiru, Jul 15 2018

Crossrefs

Sequence in context: A173370 A159307 A284768 * A172530 A201237 A120436

Adjacent sequences: A024080 A024081 A024082 * A024084 A024085 A024086

Keyword

sign,easy

Author

N. J. A. Sloane

Status

approved