OFFSET
1,1
EXAMPLE
14+15=29, 21+22=43, 26+33=59, ..
MATHEMATICA
f[n_]:=Last/@FactorInteger[n]=={1, 1}; a=6; lst={}; Do[If[f[n], p=a+n; If[PrimeQ[p], AppendTo[lst, p]]; a=n], {n, 9, 7!}]; lst
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Nov 26 2009
STATUS
approved