login
Triangular array of values of Wieferich primes p in A252232 read by rows.
1

%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