%I A094896
%S A094896 0,0,0,13,0,0,0,0,0,37,0,0,0,53,0,61,0,0,73,0,0,0,89,0,97,0,0,109,113,
               0,
%T A094896 0,0,0,0,0,0,0,0,0,157,0,0,0,173,0,181,0,0,193,0,0,0,0,0,0,0,0,229,233,
%U A094896 0,241,0,0,0,257,0,0,0,0,277,0,0,0,293,0,0,0,0,313,317,0,0,0,0,337,0,0
%N A094896 a(n) = if 4*n+1 is prime and 4*n+3 is not prime then 4*n+1
%t A094896 a=Table[If[PrimeQ[4*n+1]==True&&PrimeQ[4*n+3]==False, 4*n+1, 0], {n, 
               0, 200}]
%Y A094896 Sequence in context: A165970 A081357 A127708 this_sequence A067155 A073867 
               A114782
%Y A094896 Adjacent sequences: A094893 A094894 A094895 this_sequence A094897 A094898 
               A094899
%K A094896 nonn
%O A094896 0,4
%A A094896 Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Jun 14 2004