|
%I #26 Sep 08 2022 08:45:28
%S 0,1023,59048,1048575,9765624,60466175,282475248,1073741823,
%T 3486784400,9999999999,25937424600,61917364223,137858491848,
%U 289254654975,576650390624,1099511627775,2015993900448,3570467226623,6131066257800,10239999999999,16679880978200
%N a(n) = n^10 - 1.
%C a(n) mod 11 = 0 iff n mod 11 > 0; a(A008593(n)) = 10.
%H T. D. Noe, <a href="/A123867/b123867.txt">Table of n, a(n) for n = 1..1000</a>
%H <a href="/index/Rec#order_11">Index entries for linear recurrences with constant coefficients</a>, signature (11,-55,165,-330,462,-462,330,-165,55,-11,1).
%F From _G. C. Greubel_, Aug 08 2019: (Start)
%F G.f.: x^2*(1023 + 47795*x + 455312*x^2 + 1310144*x^3 + 1310606*x^4 + 454982*x^5 + 47960*x^6 + 968*x^7 + 11*x^8 + x^9)/(1-x)^11.
%F E.g.f.: 1 +(-1 + x + 511*x^2 + 9330*x^3 + 34105*x^4 + 42525*x^5 + 22827*x^6 + 5880*x^7 + 750*x^8 + 45*x^9 + x^10)*exp(x). (End)
%p A123867:=n->n^10-1; seq(A123867(n), n=1..40); # _Wesley Ivan Hurt_, Jan 22 2014
%t Table[n^10-1, {n,40}] (* _Wesley Ivan Hurt_, Jan 22 2014 *)
%o (Magma) [n^10 - 1:n in [1..40]]; // _Vincenzo Librandi_, Dec 27 2010
%o (PARI) vector(25, n, n^10 -1) \\ _G. C. Greubel_, Aug 08 2019
%o (Sage) [n^10 -1 for n in (1..25)] # _G. C. Greubel_, Aug 08 2019
%o (GAP) List([1..25], n-> n^10 -1); # _G. C. Greubel_, Aug 08 2019
%Y Cf. A024008, A008454, A005563, A123865, A123866, A123868.
%K nonn,easy
%O 1,2
%A _Reinhard Zumkeller_, Oct 16 2006
|
