OFFSET
1,1
EXAMPLE
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.
MATHEMATICA
q[n_] := FactorInteger[n][[;; , 2]] == {1, 1, 1, 1}; Select[Prime[Range[10^4]], AllTrue[# + {1, 2}, q] &] (* Amiram Eldar, Apr 25 2023 *)
PROG
(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
CROSSREFS
KEYWORD
nonn
AUTHOR
Massimo Kofler, Apr 25 2023
STATUS
approved