OFFSET
1,1
EXAMPLE
For n=1 the smallest twin prime > 3*2^n is 11.
MATHEMATICA
stp[n_]:=Module[{t=NextPrime[3*2^n]}, While[!PrimeQ[t+2], t=NextPrime[t]]; t]; Array[stp, 30] (* Harvey P. Dale, Sep 12 2015 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Washington Bomfim, Feb 28 2012
STATUS
approved