%I #16 May 09 2023 08:56:28
%S 0,0,0,3,16,5,576,2023,4096,227529,2656000,26301011,443667456,
%T 5268921853,294332416,820814907375,19909425135616,225992064764177,
%U 5838869363687424,43054524724611979,296380418621440000
%N Remainder when n^n is divided by n!.
%H Harry J. Smith, <a href="/A063709/b063709.txt">Table of n, a(n) for n=0..100</a>
%e a(7) = 2023 because 7^7 = 2023 (mod 7!).
%t Table[PowerMod[n, n, n! ], {n, 24}]
%o (PARI) for(n=0,22,print(Mod(n^n,n!)))
%o (PARI) { for (n=0, 100, write("b063709.txt", n, " ", n^n % n!) ) } \\ _Harry J. Smith_, Aug 28 2009
%Y Cf. A000142, A000312.
%K easy,nonn
%O 0,4
%A _Axel Harvey_, Aug 23 2001
%E Corrected and extended by a number of contributors, Aug 24 2001