|
%I #20 Sep 08 2022 08:44:48
%S 1,6,-207,-6218,-63135,-373818,-1561967,-4941258,-11012415,-2693114,
%T 182475249,1762967862,13411305505,96073279686,676747283793,
%U 4744998619318,33228635602305,232623538229766,1628402577949873
%N a(n) = 7^n - n^8.
%H Vincenzo Librandi, <a href="/A024083/b024083.txt">Table of n, a(n) for n = 0..400</a>
%H <a href="/index/Rec#order_10">Index entries for linear recurrences with constant coefficients</a>, signature (16, -99, 336, -714, 1008, -966, 624, -261, 64, -7).
%F 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
%p seq(7^k-k^8,k=0..20); # _Muniru A Asiru_, Jul 15 2018
%t Table[7^n-n^8,{n,0,60}] (* _Vladimir Joseph Stephan Orlovsky_, Feb 15 2011 *)
%t 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 *)
%o (Magma) [7^n-n^8: n in [0..20]]; // _Vincenzo Librandi_, Jul 04 2011
%o (GAP) List([0..20],n->7^n-n^8); # _Muniru A Asiru_, Jul 15 2018
%K sign,easy
%O 0,2
%A _N. J. A. Sloane_
|
