OFFSET
1,2
COMMENTS
MATHEMATICA
nn=10000; t3=Select[Range[2, nn], Plus@@Last/@FactorInteger[ # ]==3&]; t3sum=Table[0, {nn}]; Do[n=t3[[i]]+t3[[j]]; If[n<=nn, t3sum[[n]]=1], {i, Length[t3]}, {j, i, Length[t3]}]; Flatten[Position[t3sum, 0]] (* T. D. Noe, Nov 06 2006 *)
CROSSREFS
KEYWORD
easy,fini,full,nonn
AUTHOR
Jonathan Vos Post, Sep 27 2006
EXTENSIONS
Edited by T. D. Noe, Nov 06 2006
STATUS
approved