A063709 Remainder when n^n is divided by n!.

0, 0, 0, 3, 16, 5, 576, 2023, 4096, 227529, 2656000, 26301011, 443667456, 5268921853, 294332416, 820814907375, 19909425135616, 225992064764177, 5838869363687424, 43054524724611979, 296380418621440000

Offset

0,4

Links

Harry J. Smith, Table of n, a(n) for n=0..100

Example

a(7) = 2023 because 7^7 = 2023 (mod 7!).

Mathematica

Table[PowerMod[n, n, n! ], {n, 24}]

Prog

(PARI) for(n=0, 22, print(Mod(n^n, n!)))
(PARI) { for (n=0, 100, write("b063709.txt", n, " ", n^n % n!) ) } \\ Harry J. Smith, Aug 28 2009

Crossrefs

Cf. A000142, A000312.

Sequence in context: A165969 A098373 A054793 * A195880 A237671 A286199

Adjacent sequences: A063706 A063707 A063708 * A063710 A063711 A063712

Keyword

easy,nonn

Author

Axel Harvey, Aug 23 2001

Extensions

Corrected and extended by a number of contributors, Aug 24 2001

Status

approved