OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
Eric Weisstein's World of Mathematics, Quadratic Nonresidue.
PROG
(PARI) residue(n, m)=local(r); r=0; for(i=0, floor(m/2), if(i^2%m==n, r=1)); r
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
(PARI) is(n)=forprime(p=2, 29, if(!issquare(Mod(p, n)), return(p==29))); 0 \\ Charles R Greathouse IV, Jan 24 2020
CROSSREFS
KEYWORD
nonn
AUTHOR
STATUS
approved