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
Examples
a(7) = 2023 because 7^7 = 2023 (mod 7!).
Links
- Harry J. Smith, Table of n, a(n) for n=0..100
Programs
-
Mathematica
Table[PowerMod[n, n, n! ], {n, 24}] -
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
Extensions
Corrected and extended by a number of contributors, Aug 24 2001