%I A138338
%S A138338 17,89,233,449,1097,2609,3257,6569,7577,12329,13697,15137,16649,18233,
%T A138338 19889,21617
%N A138338 Primes of the form n^2+8.
%t A138338 Intersection[Table[n^2+8,{n,0,10^2}],Prime[Range[9*10^3]]] ...or... For[i=8,
               i<=8,a={};Do[If[PrimeQ[n^2+i],AppendTo[a,n^2+i]],{n,0,100}];Print["n^2+",
               i,",",a];i++ ]
%Y A138338 Sequence in context: A033654 A139947 A162930 this_sequence A057638 A159676 
               A061971
%Y A138338 Adjacent sequences: A138335 A138336 A138337 this_sequence A138339 A138340 
               A138341
%K A138338 nonn
%O A138338 1,1
%A A138338 Vladimir Orlovsky (4vladimir(AT)gmail.com), May 07 2008