%I A106999
%S A106999 2,13,67,103,107,113,173,227,307,317,337,383,433,487,607,673,773,887,
%T A106999 907,977,983,1093,1097,1117,1193,1237,1283,1427,1433,1447,1523,1627,
%U A106999 1663,1723,1823,1877,1933,1997,2017,2143,2237,2293,2377,2383,2393
%N A106999 Primes of the form 2x^2+xy+12y^2, with x and y any integer.
%C A106999 Discriminant=-95. See A106856 for more information.
%t A106999 f[x_,y_]:=2*x^2+x*y+12*y^2; lst={};Do[Do[p=f[x,y];If[PrimeQ[p],AppendTo[lst,
               p]],{y,-5!,6!}],{x,-5!,6!}];Take[Union[lst],5! ] [From Vladimir Orlovsky 
               (4vladimir(AT)gmail.com), Jul 04 2009]
%t A106999 Union[QuadPrimes[2, 1, 12, 10000], QuadPrimes[2, -1, 12, 10000]] (* see 
               A106856 *)
%Y A106999 Sequence in context: A037640 A137967 A045764 this_sequence A054566 A038144 
               A097977
%Y A106999 Adjacent sequences: A106996 A106997 A106998 this_sequence A107000 A107001 
               A107002
%K A106999 nonn,easy
%O A106999 1,1
%A A106999 T. D. Noe (noe(AT)sspectra.com), May 09 2005