OFFSET
1,1
EXAMPLE
30+42+66=138, 78+102+105=285,..
MATHEMATICA
f[n_]:=Last/@FactorInteger[n]=={1, 1, 1}; a=30; b=42; lst={}; Do[If[f[n], p=a+b+n; If[f[p], AppendTo[lst, p]]; a=b; b=n], {n, 65, 7!}]; lst
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Nov 28 2009
STATUS
approved