Triangle whose n-th row has n numbers m such that prime S000639(n) divides m! + 1.
1, 3, 6, 14, 18, 22, 15, 40, 43, 58, 61, 113, 144, 165, 226, 25, 128, 173, 227, 375, 400, 7, 9, 19, 51, 61, 63, 70, 1005, 1459, 1821, 1858, 2183, 2637, 2700, 3642, 7669, 15990, 29913, 31469, 33025, 55269, 56066, 56266, 62938, 47470, 78170, 128028, 134443
1
The hard part is determining the primes.
T. D. Noe, Plot of 12 rows
T. D. Noe, Table of 12 rows
(Mma) Table[cnt = 0; f = 1; t2 = {}; Do[f = Mod[f*m, p]; If[f + 1 == p, cnt++; AppendTo[t2, m]], {m, p - 1}]; t2, {p, {2, 7, 23, 59, 227, 401, 71, 3643, 62939, 480209, 292627, 1089427}}]
Cf. S000639.
nonn,tabl
T. D. Noe, Jul 13 2015