A024124 a(n) = 10^n - n^10.

1, 9, -924, -58049, -1038576, -9665625, -59466176, -272475249, -973741824, -2486784401, 0, 74062575399, 938082635776, 9862141508151, 99710745345024, 999423349609375, 9998900488372224, 99997984006099551, 999996429532773376

Offset

0,2

Links

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

Formula

From Chai Wah Wu, Jan 26 2020: (Start)

a(n) = 21*a(n-1) - 165*a(n-2) + 715*a(n-3) - 1980*a(n-4) + 3762*a(n-5) - 5082*a(n-6) + 4950*a(n-7) - 3465*a(n-8) + 1705*a(n-9) - 561*a(n-10) + 111*a(n-11) - 10*a(n-12) for n > 11.

G.f.: (9*x^11 + 10140*x^10 + 477332*x^9 + 4504245*x^8 + 12648018*x^7 + 11793648*x^6 + 3241104*x^5 + 23538*x^4 - 37875*x^3 - 948*x^2 - 12*x + 1)/((x - 1)^11*(10*x - 1)). (End)

Mathematica

lst={}; Do[AppendTo[lst, 10^n-n^10], {n, 0, 5!}]; lst (* Vladimir Joseph Stephan Orlovsky, Jan 15 2009 *)
Table[10^n-n^10, {n, 0, 20}] (* Harvey P. Dale, Apr 22 2018 *)

Prog

(Magma) [10^n-n^10: n in [0..20]]; // Vincenzo Librandi, Jun 30 2011

Crossrefs

Cf. A024012, A024026, A058794, A024040, A024054, A024068, A024082, A024096, A024110. - Vladimir Joseph Stephan Orlovsky, Jan 15 2009

Sequence in context: A069054 A283801 A015107 * A316535 A036255 A070233

Adjacent sequences: A024121 A024122 A024123 * A024125 A024126 A024127

Keyword

sign,easy

Author

N. J. A. Sloane

Status

approved