A025029 - OEIS

%I #13 Oct 31 2020 04:35:26

%S 18191,35279,36382,38639,63839,70558,77278,87481,95471,104711,127678,

%T 147671,174962,185641,190942,193751,199559,209422,217439,284231,

%U 290351,295342,312311,322559,336361,363359,371282,375359,387502,394969,399118

%N Numbers whose least quadratic nonresidue (A020649) is 29.

%H Amiram Eldar, <a href="/A025029/b025029.txt">Table of n, a(n) for n = 1..10000</a>

%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/QuadraticNonresidue.html">Quadratic Nonresidue</a>.

%o (PARI) residue(n,m)=local(r);r=0;for(i=0,floor(m/2),if(i^2%m==n,r=1));r

%o isA025029(n)=local(a);a=1;forprime(p=2,23,a=a && residue(p,n));a=a && !residue(29,n);a \\ _Michael B. Porter_, May 06 2010

%o (PARI) is(n)=forprime(p=2,29, if(!issquare(Mod(p,n)), return(p==29))); 0 \\ _Charles R Greathouse IV_, Jan 24 2020

%Y Cf. A020649, A025020, A025021, A025022, A025023, A025024, A025025, A025026, A025027, A025028.

%K nonn

%O 1,1

%A _David W. Wilson_