OFFSET
3,1
PROG
(PARI) a359638(maxp) = {my (k=3, pp=3); forprime (p=5, maxp, my (mi=oo, ma=0); if (p-pp>2, for (j=pp+1, p-1, my(mo=bigomega(j)); if(mo<k, mi=ma=0; break); mi=min(mo, mi); ma=max(mo, ma)); if (mi==k && ma==k, print1(pp, ", "); k++)); pp=p)};
a359638(10^8)
CROSSREFS
KEYWORD
nonn,more,hard
AUTHOR
Hugo Pfoertner, Jan 16 2023
STATUS
approved