# Greetings from The On-Line Encyclopedia of Integer Sequences! http://oeis.org/

Search: id:a112304
Showing 1-1 of 1

%I A112304 #4 Mar 30 2012 17:22:41
%S A112304 2,7,19,46,214,394,1114,3994,3826,13666,83554,22234,189814,644869,
%T A112304 1387786,1427911,4355311,5715319,12807391,43030381,64320754,133826599,
%U A112304 452980999
%N A112304 Least number whose least prime quadratic nonresidue is prime(n).
%C A112304 In terms of the Legendre symbol (a|p), this sequence can be described as the least number k such that (k|prime(n))=-1 and (k|prime(i))=1 for i=2,..,n-1. Note that a(n) <= A096636(n).
%t A112304 nn=23; a=Table[0, {nn}]; n=0; done=False; While[ !done, n++; i=2; While[i<nn+2 && JacobiSymbol[n, Prime[i]]==1, i++ ]; If[i>=2 && i<=nn+2 && JacobiSymbol[n, Prime[i]]==-1 && a[[i-1]]==0, a[[i-1]]=n; done=(Times@@a>0)]]; a
%Y A112304 Cf. A096636 (Smallest prime whose least prime quadratic non-residue is prime(n).).
%K A112304 nonn
%O A112304 2,1
%A A112304 _T. D. Noe_, Sep 02 2005

# Content is available under The OEIS End-User License Agreement: http://oeis.org/LICENSE