This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A252582 #9 Oct 28 2021 10:00:18
%S A252582 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 A252582 173,1259,2,3,5,11,31,37,61,109,2,3,5,7,43,293,317,383,1627,2,5,7,11,
%U A252582 31,47,89,167,523,619
%N A252582 Triangular array of values of Wieferich primes p in A252232 read by rows.
%e A252582 Triangle starts
%e A252582 2
%e A252582 2 3
%e A252582 3 7 13
%e A252582 2 3 11 157
%e A252582 2 5 7 19 83
%e A252582 2 11 17 109 239 401
%e A252582 5 7 11 13 83 173 1259
%e A252582 2 3 5 11 31 37 61 109
%e A252582 2 3 5 7 43 293 317 383 1627
%e A252582 2 5 7 11 31 47 89 167 523 619
%t A252582 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 A252582 Cf. A252232.
%K A252582 nonn,hard,more,tabl
%O A252582 1,1
%A A252582 _Felix Fröhlich_, Dec 18 2014