A063642 Primes of form p*q*r + 2, where p, q and r are primes (not necessarily distinct).
29, 47, 101, 107, 127, 149, 167, 173, 197, 233, 257, 263, 277, 281, 347, 359, 389, 401, 431, 457, 467, 479, 509, 541, 557, 563, 577, 607, 617, 641, 647, 653, 659, 727, 743, 761, 797, 863, 887, 911, 929, 937, 971, 983, 1019, 1087, 1097, 1129, 1181, 1187
Offset: 1
Keywords
Links
- Harry J. Smith, Table of n, a(n) for n = 1..1000
Programs
-
Mathematica
With[{nn=50},Take[Select[Times@@@Tuples[Prime[Range[nn]],3]+2,PrimeQ]// Union,nn]] (* Harvey P. Dale, Jan 21 2021 *) -
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