A362578 Prime numbers followed by two consecutive numbers which are products of four distinct primes (or tetraprimes).
8293, 16553, 17389, 18289, 22153, 26893, 29209, 33409, 35509, 36293, 39233, 39829, 40493, 41809, 45589, 48109, 58393, 59629, 59753, 59981, 60493, 60913, 64013, 64921, 65713, 66169, 69221, 71329, 74093, 75577, 75853, 77689, 77933, 79393, 79609, 82913, 84533, 85853, 87589, 87701, 88681
Offset: 1
Keywords
Examples
8293 (prime), 8294 = 2*11*13*29 and 8295 = 3*5*7*79. 16553 (prime), 16554 = 2*3*31*89 and 16555 = 5*7*11*43. 17389 (prime), 17390 = 2*5*37*47 and 17391 = 3*11*17*31.
Programs
-
Mathematica
q[n_] := FactorInteger[n][[;; , 2]] == {1, 1, 1, 1}; Select[Prime[Range[10^4]], AllTrue[# + {1, 2}, q] &] (* Amiram Eldar, Apr 25 2023 *) -
PARI
is(n) = (omega(n)==4) && (bigomega(n)==4); \\ A046386 isok(p) = isprime(p) && is(p+1) && is(p+2); \\ Michel Marcus, Apr 25 2023