OFFSET
1,1
EXAMPLE
10+14+15=39, 15+21+22=58,..
MATHEMATICA
f[n_]:=Last/@FactorInteger[n]=={1, 1}; a=6; b=10; lst={}; Do[If[f[n], p=a+b+n; If[f[p], AppendTo[lst, p]]; a=b; b=n], {n, 13, 7!}]; lst
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Nov 28 2009
STATUS
approved