|
%I #4 Oct 15 2015 21:46:10
%S 6,254,339,445,502,622,687,989,1247,1726,1837,2189,2434,2563,3113,
%T 3401,4701,5069,5853,6261,6467,7318,8193,8654,8891,10415,11499,12077,
%U 14803,15122,15766,19883,25385,26639,27503,28394,28841,33977,34462,34951
%N Numbers that are the product of two distinct primes and they are partial sum of products of two distinct primes.
%e 6,10,14,15,21,22,26,33,34,35,38,39,46,..A006881 Numbers that are the product of two distinct primes 6,16,30,45,66,88,114,147,181,216,254,...A168472 Partial sums of products of two distinct primes 6=2*3, 254=2*127, 339=3*113, 445=5*89,..
%t f[n_]:=Last/@FactorInteger[n]=={1,1}; s=0;lst={};Do[If[f[n],If[f[s+=n],AppendTo[lst,s]]],{n,6!}];lst
%t Module[{tdp=Subsets[Prime[Range[2000]],{2}],pr},pr=Times@@@tdp;Take[ Intersection[ pr,Accumulate[Sort[pr]]],40]] (* _Harvey P. Dale_, Oct 15 2015 *)
%Y Cf. A006881, A168472
%K nonn
%O 1,1
%A _Vladimir Joseph Stephan Orlovsky_, Nov 26 2009
|
