%I #9 Oct 28 2021 10:00:18
%S 2,2,3,3,7,13,2,3,11,157,2,5,7,19,83,2,11,17,109,239,401,5,7,11,13,83,
%T 173,1259,2,3,5,11,31,37,61,109,2,3,5,7,43,293,317,383,1627,2,5,7,11,
%U 31,47,89,167,523,619
%N Triangular array of values of Wieferich primes p in A252232 read by rows.
%e Triangle starts
%e 2
%e 2 3
%e 3 7 13
%e 2 3 11 157
%e 2 5 7 19 83
%e 2 11 17 109 239 401
%e 5 7 11 13 83 173 1259
%e 2 3 5 11 31 37 61 109
%e 2 3 5 7 43 293 317 383 1627
%e 2 5 7 11 31 47 89 167 523 619
%t Flatten@Table[k=2;While[Length[s=Select[Prime@Range@PrimePi[k-1],PowerMod[k,(#-1),#^2]==1&]]!=n,k=NextPrime@k];s,{n,8}] (* _Giorgos Kalogeropoulos_, Oct 28 2021 *)
%Y Cf. A252232.
%K nonn,hard,more,tabl
%O 1,1
%A _Felix Fröhlich_, Dec 18 2014