%I A065540
%S A065540 3,11,37,113,347,1049,3163,9491,28477,85439,256337,769019,2307059,
%T A065540 6921179,20763541,62290633,186871907,560615723,1681847191,5045541577,
%U A065540 15136624739,45409874221,136229622677,408688868051,1226066604179
%N A065540 a(n) is smallest prime > 3*a(n-1), a(1) = 3.
%t A065540 NextPrim[n_Integer] := Block[ {k = n + 1}, While[ !PrimeQ[k], k++ ]; 
               Return[k]]; a[1] = 3; a[n_] := NextPrim[ 3*a[n - 1]]; Table[ a[n], 
               {n, 1, 30} ]
%Y A065540 Sequence in context: A005422 A040017 A007615 this_sequence A084171 A118044 
               A027062
%Y A065540 Adjacent sequences: A065537 A065538 A065539 this_sequence A065541 A065542 
               A065543
%K A065540 nonn
%O A065540 1,1
%A A065540 Robert G. Wilson v (rgwv(AT)rgwv.com), Nov 28 2001