The OEIS is supported by the many generous donors to the OEIS Foundation.
%I #7 Jul 15 2012 09:54:06
%S 3,5,7,11,13,19,23,29,37,43,53,61,67,71,83,101,103,107,109,131,139,
%T 149,151,163,167,173,181,197,199,211,229,263,277,293,317,331,349,359,
%U 373,389,397,419,439,461,467,487,491,503,523,541,547,557,587,599,613,631,643,653
%N Primes of the form x^2 + y^2 + 3 (x,y nonnegative).
%H Vincenzo Librandi, <a href="/A079733/b079733.txt">Table of n, a(n) for n = 1..1000</a>
%t f[upto_]:=Module[{max=Ceiling[Sqrt[upto]]},Select[Select[Union[Total[#]+3&/@(Tuples[Range[0,max],{2}]^2)],PrimeQ],#<=upto&]];f[1200] (* _Vincenzo Librandi_, Jul 15 2012 *)
%Y Cf. A079732, A079739, A079740.
%K nonn
%O 1,1
%A _N. J. A. Sloane_, Feb 18 2003