OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
MATHEMATICA
dpd5Q[p_]:=Length[Union[Flatten[FactorInteger[#][[All, 1]]&/@Range[ p+1, NextPrime[ p]-1]]]]==5; Select[Prime[Range[3000]], dpd5Q] (* Harvey P. Dale, Aug 11 2021 *)
PROG
(Magma) a:=[]; for k in PrimesInInterval(2, 25000) do b:={}; for s in [k..NextPrime(k)-1] do if not IsPrime(s) then b:=b join Set(PrimeDivisors(s)); end if; end for; if #Set(b) eq 5 then Append(~a, k); end if; end for; a; // Marius A. Burtea, Sep 26 2019
CROSSREFS
KEYWORD
nonn
AUTHOR
Amarnath Murthy, Sep 26 2002
EXTENSIONS
More terms from Sam Alexander, Oct 21 2003
STATUS
approved