A196739 a(n) = n! - n^10.

1, 0, -1022, -59043, -1048552, -9765505, -60465456, -282470209, -1073701504, -3486421521, -9996371200, -25897507801, -61438362624, -131631471049, -202076363776, 731023977375, 19823278260224, 353671434195551, 6398803238501376, 121638969342574199, 2432891768176640000

Offset

0,3

Links

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

Mathematica

Table[n!-n^10, {n, 0, 20}] (* Harvey P. Dale, May 19 2012 *)

Prog

(Magma) [Factorial(n)-n^10: n in [0..20]];

Crossrefs

Cf. A005008, A005096, A007339, A144768, A196411, A196412, A196413, A196414, A196738.

Sequence in context: A165097 A165101 A158420 * A196291 A145589 A031969

Adjacent sequences: A196736 A196737 A196738 * A196740 A196741 A196742

Keyword

sign,easy

Author

Vincenzo Librandi, Oct 06 2011

Status

approved