Numbers not in the irregular table of k! mod p for k = 1..p-1 for primes p.
3, 4, 5, 3, 4, 7, 8, 9, 4, 8, 10, 4, 5, 9, 10, 11, 3, 7, 8, 11, 12, 13, 14, 10, 15, 16, 17, 19, 20, 7, 13, 15, 17, 18, 19, 20, 21, 25, 27, 3, 4, 8, 10, 11, 12, 13, 14, 21, 28, 3, 4, 5, 10, 11, 15, 19, 22, 23, 28, 32, 3, 5, 8, 10, 11, 14, 18, 19, 21, 32, 34, 37
1
This is the complement of S000447.
T. D. Noe, Plot of 50 rows
T. D. Noe, Table of 50 rows
Tim Trudgian, There are no socialist primes less than 10^9, Integers 14 (2014), A63.
(Mma) Table[s = Table[Mod[n!, p], {n, p - 1}]; Complement[Range[p - 1], s], {p, Prime[Range[15]]}]
Cf. S000447.
nonn,tabf
T. D. Noe, Jan 11 2015