%I A138375
%S A138375 13,17,29,113,157,269,337,797,1613,1777,1949,2129,3613,4637,5197,6737,
%T A138375 7069,7757,8849,11677,12113,13009,13469,14897,15889,20177,20749,23117,
%U A138375 24977
%N A138375 Primes of the form n^2+13.
%t A138375 Intersection[Table[n^2+13,{n,0,10^2}],Prime[Range[9*10^3]]] ...or... 
               For[i=13,i<=13,a={};Do[If[PrimeQ[n^2+i],AppendTo[a,n^2+i]],{n,0,100}];
               Print["n^2+",i,",",a];i++ ]
%Y A138375 Sequence in context: A048520 A033210 A107159 this_sequence A161401 A006567 
               A108388
%Y A138375 Adjacent sequences: A138372 A138373 A138374 this_sequence A138376 A138377 
               A138378
%K A138375 nonn
%O A138375 1,1
%A A138375 Vladimir Orlovsky (4vladimir(AT)gmail.com), May 07 2008