%I #24 Sep 08 2022 08:45:39
%S 0,0,4,1,5,9,13,18,21,11,16,17,15,41,41,7,1,42,22,6,56,78,33,21,2,73,
%T 84,12,44,59,125,109,90,53,57,96,48,118,152,128,6,82,118,75,18,110,
%U 104,214,157,82,166,212,6,84,183,261,48,189,76,125,55,23,243,300,179,47,112,163,273
%N a(n) = (n+1)! mod prime(n).
%H G. C. Greubel, <a href="/A153426/b153426.txt">Table of n, a(n) for n = 1..1000</a>
%t Table[Mod[(n+1)!,Prime[n]],{n,70}] (* _Harvey P. Dale_, Jun 08 2014 *)
%o (Magma) [Factorial(n+1) mod NthPrime(n): n in [1..80]]; // _Vincenzo Librandi_, Aug 22 2016
%K nonn
%O 1,3
%A _Alexander R. Povolotsky_, Mar 10 2013