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

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, 173, 1259, 2, 3, 5, 11, 31, 37, 61, 109, 2, 3, 5, 7, 43, 293, 317, 383, 1627, 2, 5, 7, 11, 31, 47, 89, 167, 523, 619

Offset: 1

Author

Felix Fröhlich, Dec 18 2014

Keywords

• nonn
• hard
• more
• tabl

Examples

			Triangle starts
  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 173 1259
  2  3  5  11  31  37   61 109
  2  3  5   7  43 293  317 383 1627
  2  5  7  11  31  47   89 167  523 619
		

Crossrefs

Cf. A252232.

Programs

Mathematica

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 *)