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,1

Links

Table of n, a(n) for n=1..55.

Example

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

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

Crossrefs

Cf. A252232.

Sequence in context: A153903 A331729 A095741 * A181577 A110880 A195952

Adjacent sequences: A252579 A252580 A252581 * A252583 A252584 A252585

Keyword

nonn,hard,more,tabl

Author

Felix Fröhlich, Dec 18 2014

Status

approved