OFFSET
4,1
COMMENTS
MATHEMATICA
Module[{nn=70, p2p}, p2p=Reverse[Union[Times@@@Subsets[Prime[Range[ 2, PrimePi[ Ceiling[ nn^2/3]]]], {2}]]]; Table[SelectFirst[p2p, #<n^2&], {n, 4, nn}]] (* Harvey P. Dale, Dec 06 2021 *)
PROG
(Python)
from itertools import count
from sympy import factorint
def A099611(n):
for i in count(n**2-(n%2)-1, -2):
fs = factorint(i)
if len(fs) == 2 == sum(fs.values()):
return i # Chai Wah Wu, Dec 06 2021
(PARI) a(n) = forstep(k=n^2-n%2-1, 1, -2, if (bigomega(k)==2&&omega(k)==2, return(k))); \\ Michel Marcus, Dec 07 2021
CROSSREFS
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, Oct 25 2004
EXTENSIONS
Definition clarified by N. J. A. Sloane, Dec 06 2021
STATUS
approved