%I A138355
%S A138355 11,19,59,131,179,739,971,1531,2411,2819,3259,3491,5051,5939,6571,6899,
%T A138355 8291,9419,9811
%N A138355 Primes of the form n^2+10.
%t A138355 Intersection[Table[n^2+10,{n,0,10^2}],Prime[Range[9*10^3]]] ...or... 
               For[i=10,i<=10,a={};Do[If[PrimeQ[n^2+i],AppendTo[a,n^2+i]],{n,0,100}];
               Print["n^2+",i,",",a];i++ ]
%Y A138355 Sequence in context: A167535 A107201 A139829 this_sequence A080789 A057770 
               A080788
%Y A138355 Adjacent sequences: A138352 A138353 A138354 this_sequence A138356 A138357 
               A138358
%K A138355 nonn
%O A138355 1,1
%A A138355 Vladimir Orlovsky (4vladimir(AT)gmail.com), May 07 2008