OFFSET
0,1
LINKS
Pierre CAMI, Table of n, a(n) for n = 0..500
EXAMPLE
3*2*2^0+1=7 prime so for n=0 p=2
3*2*2^1+1=13 prime so for n=1 p=2
MATHEMATICA
nn=100; Flatten[Module[{prs=Prime[Range[nn]], c}, Table[c=2^n; Select[prs, PrimeQ[ 3c #+1]&, 1], {n, 0, nn}]]] (* Harvey P. Dale, Sep 01 2013 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Pierre CAMI, May 24 2007
EXTENSIONS
More terms from Harvey P. Dale, Sep 01 2013
STATUS
approved