A357364 Primes p such that either p^(q-1) == 1 (mod q^2) or q^(p-1) == 1 (mod p^2), where q = A151800(A151800(A151800(p))).

11, 23, 41, 107, 389, 1987673, 35603983

Offset

1,1

Links

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

Prog

(PARI) is(n) = my(b=precprime(precprime(precprime(n-1)-1)-1)); Mod(b, n^2)^(n-1)==1 || Mod(n, b^2)^(b-1)==1
forprime(p=7, , if(is(p), print1(p, ", ")))

Crossrefs

Cf. A151800, A357362, A357363, A357365.

Sequence in context: A077041 A190797 A068842 * A199848 A352494 A228444

Adjacent sequences: A357361 A357362 A357363 * A357365 A357366 A357367

Keyword

nonn,hard,more

Author

Felix Fröhlich, Sep 25 2022

Status

approved