OFFSET
1,1
COMMENTS
Except for a(1) = 4, all terms are prime.
LINKS
Lucas A. Brown, semiprimemods.py
MATHEMATICA
With[{sp=Select[Range[5*10^6], PrimeOmega[#]==2&]}, Select[#[[1]]/#[[2]]&/@Thread[{sp, Range[Length[sp]]}], IntegerQ]] (* The program generates the first 13 terms of the sequence. *) (* Harvey P. Dale, Aug 07 2025 *)
CROSSREFS
KEYWORD
nonn,hard,more
AUTHOR
Lucas A. Brown, Oct 13 2022
STATUS
approved
