OFFSET
1,1
EXAMPLE
MATHEMATICA
f[n_]:=Last/@FactorInteger[n]=={1, 1}; s=0; lst={}; Do[If[f[n], If[f[s+=n], AppendTo[lst, s]]], {n, 6!}]; lst
Module[{tdp=Subsets[Prime[Range[2000]], {2}], pr}, pr=Times@@@tdp; Take[ Intersection[ pr, Accumulate[Sort[pr]]], 40]] (* Harvey P. Dale, Oct 15 2015 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Nov 26 2009
STATUS
approved