%I A089716
%S A089716 11,101,181,191,271,281,461,541,631,641,811,821,911,991,1091,1171,1181,
%T A089716 1361,1451,1531,1621,1721,1801,1811,1901,2081,2161,2251,2341,2351,2441,
%U A089716 2521,2531,2621,2711,2791,2801,2971,3061,3251,3331,3511,3691,3701,3881
%N A089716 Primes that are both congruent to 1 mod 10 and congruent to 1 or 2 mod 
               9.
%F A089716 A030430 INTERSECT { A061237 UNION A061238 }.
%t A089716 digits=4*200 a=Delete[Union[Table[If[Mod[Prime[n], 10]==1, Prime[n], 
               0], {n, 1, digits}]], 1] d2=Dimensions[a][[1]] a9l3=Delete[Union[Table[If[Mod[a[[n]]/
               9, 10]<3, a[[n]], 0], {n, 1, d2}]], 1]
%Y A089716 Sequence in context: A156753 A118592 A156617 this_sequence A084987 A083185 
               A007597
%Y A089716 Adjacent sequences: A089713 A089714 A089715 this_sequence A089717 A089718 
               A089719
%K A089716 nonn
%O A089716 1,1
%A A089716 Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Jan 06 2004
%E A089716 Edited by N. J. A. Sloane (njas(AT)research.att.com), Feb 04 2008