login
A168476
Numbers that are the product of two distinct primes and they are partial sum of products of two distinct primes.
0
6, 254, 339, 445, 502, 622, 687, 989, 1247, 1726, 1837, 2189, 2434, 2563, 3113, 3401, 4701, 5069, 5853, 6261, 6467, 7318, 8193, 8654, 8891, 10415, 11499, 12077, 14803, 15122, 15766, 19883, 25385, 26639, 27503, 28394, 28841, 33977, 34462, 34951
OFFSET
1,1
EXAMPLE
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,..
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
STATUS
approved