|
%I #9 Jan 26 2016 19:28:03
%S 2,3,7,17,37,47,53,59,61,71,79,83,89,97,101,103,131,149,157,173,191,
%T 197,239,241,251,263,269,271,277,283,307,331,337,347,353,379,383,397,
%U 401,431,439,457,479,487,491,521,523,541,571,601,613,617,619,643,647,653,659,661,683,709,719,733,739,761,769,773,811,823,827,853
%N Primes which are squares (mod 47).
%C Motivated by A191056, previously having an (erroneous) definition equivalent to this one.
%H Harvey P. Dale, <a href="/A267601/b267601.txt">Table of n, a(n) for n = 1..1000</a>
%t Select[Prime[Range[200]],JacobiSymbol[#,47]!=-1&] (* _Harvey P. Dale_, Jan 26 2016 *)
%o (PARI) forprime(p=1,999,issquare(Mod(p,47))&&print1(p","))
%K nonn
%O 1,1
%A _M. F. Hasler_, Jan 18 2016
|
