A070187 - OEIS

A070187

Primes p such that x^11 = 2 has a solution mod p, but x^(11^2) = 2 has no solution mod p.

12101, 13553, 30493, 32429, 44771, 66067, 103577, 128987, 180533, 182711, 187793, 201829, 242243, 257489, 264749, 299113, 314359, 330331, 337349, 341947, 356467, 371471, 431729, 442619, 475289, 484243, 505781, 513767, 540871, 558053, 564103, 573299, 581527, 582011, 586367, 593869, 596047, 630169

(list; graph; refs; listen; history; text; internal format)

OFFSET

1,1

LINKS

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

PROG

(PARI) forprime(p=2, 550000, x=0; while(x<p&&x^11%p!=2%p, x++); if(x<p, y=0; while(y<p&&y^(11^2)%p!=2%p, y++); if(y==p, print1(p, ", "))))

(PARI)

N=10^6; default(primelimit, N);

ok(p, r, k1, k2)={

if ( Mod(r, p)^((p-1)/gcd(k1, p-1))!=1, return(0) );

if ( Mod(r, p)^((p-1)/gcd(k2, p-1))==1, return(0) );