|
%I
%S 107,167,197,233,257,347,359,401,431,457,467,557,563,617,647,653,743,
%T 761,797,863,887,937,971,1087,1097,1187,1223,1237,1283,1297,1409,1481,
%U 1493,1549,1553,1583,1597,1601,1607,1637,1697,1871,1889,1907,1949,2003,2017
%N Primes of the form p*q*r + 2, where p, q and r are distinct primes.
%F {A007304(n)+2} INTERSECTION {A000040}.
%e 107 = 3*5*7+2.
%t mx = 50; ps = Prime[Range[2, mx + 1]]; t = Table[ps[[i]]*ps[[j]]*ps[[k]] + 2, {i, mx}, {j, i + 1, mx}, {k, j + 1, mx}]; Select[Union[Flatten[t]], # <= 3*5*ps[[-1]] + 2 && PrimeQ[#] &] (* _T. D. Noe_, May 01 2012 *)
%Y Cf. A115267.
%K nonn
%O 1,1
%A _Alex Ratushnyak_, May 01 2012
|
