%I A059621
%S A059621 1,3,7,9,19,27,57,69,163,175,357,379,3045
%N A059621 Numbers n such that (5*3^n + 7)/2 is prime.
%t A059621 Do[ If[ PrimeQ[ (5*3^n + 7)/2 ], Print[n] ], {n, 0, 10000} ]
%Y A059621 Sequence in context: A032913 A154508 A073573 this_sequence A034926 A096102 
               A045797
%Y A059621 Adjacent sequences: A059618 A059619 A059620 this_sequence A059622 A059623 
               A059624
%K A059621 nonn
%O A059621 1,2
%A A059621 Robert G. Wilson v (rgwv(AT)rgwv.com), Feb 19 2001