%I A102870
%S A102870 11,17,89,251,6569,1594331,4782977,3486784409,1350851717672992097,
%T A102870 984770902183611232889,5474401089420219382077155933569751771,
%U A102870 969773729787523602876821942164080815560169
%N A102870 Primes of the form 3^n+8.
%C A102870 These primes appears to be more frequent than 2^n+1 (Mersenne) primes.
%F A102870 a(m) = if[ 3^n+8 is prime then a[m]=3^n+8, for n=1 to 200]
%t A102870 a = Delete[Union[Flatten[Table[If [PrimeQ[3^n + 8] == True, 3^n + 8, 
               0], {n, 1, 200}]]], 1]
%Y A102870 Sequence in context: A144051 A146036 A046122 this_sequence A136721 A107172 
               A090286
%Y A102870 Adjacent sequences: A102867 A102868 A102869 this_sequence A102871 A102872 
               A102873
%K A102870 nonn
%O A102870 1,1
%A A102870 Roger Lee Bagula (rlbagulatftn(AT)yahoo.com), Mar 01 2005