|
%I #12 Jan 21 2021 13:54:10
%S 29,47,101,107,127,149,167,173,197,233,257,263,277,281,347,359,389,
%T 401,431,457,467,479,509,541,557,563,577,607,617,641,647,653,659,727,
%U 743,761,797,863,887,911,929,937,971,983,1019,1087,1097,1129,1181,1187
%N Primes of form p*q*r + 2, where p, q and r are primes (not necessarily distinct).
%H Harry J. Smith, <a href="/A063642/b063642.txt">Table of n, a(n) for n = 1..1000</a>
%t With[{nn=50},Take[Select[Times@@@Tuples[Prime[Range[nn]],3]+2,PrimeQ]// Union,nn]] (* _Harvey P. Dale_, Jan 21 2021 *)
%o (PARI) { n=0; for (m=2, 10^9, p=prime(m); if (bigomega(p - 2) == 3, write("b063642.txt", n++, " ", p); if (n==1000, break)) ) } \\ _Harry J. Smith_, Aug 26 2009
%Y Cf. A014612, A063640.
%K nonn
%O 1,1
%A _Reinhard Zumkeller_, Jul 21 2001
|
