Con esta secuencia de comandos de MATHEMATICA usted puede marcar un montón
n=10000
primes = Select[Range[n], PrimeQ[#] && NextPrime[#] == 2 + # &]
p[n_] := Product[1 + k^2, {k, 1, n}]
For [j = 1, j <= Length[primes], j++,
Print[primes[[j]], " ", Mod[p[primes[[j]]], primes[[j]]]]]
Qué decir acerca de este patrón para el primer grupo ?
$$
\{1,0,4,0,0,0,4,4,0,4,0,0,4,4,0,4,4,0,0,4,4,4,4,0,0,0,4,0,0,4,0,0,4,0,0,4,4,0,0,4,4,0,0,0,0,4,4,4,0,4,4,4,4,0,0,4,4,0,4,0,0,4,0,4,4,0,0,0,
4,0,4,0,0,4,0,4,4,0,0,0,0,4,4,4,4,0,4,0,4,4,0,0,4,4,4,0,0,4,4,0,4,0,0,0,4,0,4,4,0,0,0,0,4,4,0,0,0,0,4,0,0,0,4,4,4,4,0,0,4,4,4,0,0,0,0,4
,4,4,0,0,0,4,4,0,4,0,0,4,4,0,4,0,4,0,0,0,4,4,4,0,4,4,4,4,4,4,0,0,4,4,4,0,0,0,0,0,4,4,4,4,4,0,0,0,4,4,0,0,0,4,4,0,4,0,0,4,4,0,0,0,0,4,4,
0,0,\cdots \}
$$