OFFSET
1,1
COMMENTS
33 + 34 + 35 = 102,..
MATHEMATICA
f[n_]:=Last/@FactorInteger[n]=={1, 1}||Last/@FactorInteger[n]=={2}; lst={}; Do[If[f[n], If[f[n+1]&&f[n+2], AppendTo[lst, 3*n+3]]], {n, 8!}]; lst
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Mar 03 2010
STATUS
approved