OFFSET
1,1
MATHEMATICA
With[{nn=550000}, {spm1=Select[Range[nn], PrimeOmega[#]==2&]-1}, Table[SelectFirst[{#, PrimeOmega[#]}&/@spm1, #[[2]]==n&], {n, 19}]][[;; , 1]] (* The program generates the first 19 terms of the sequence. *) (* Harvey P. Dale, Jan 01 2026 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Ray Chandler, Mar 20 2007
EXTENSIONS
a(27)-a(42) from Donovan Johnson, Nov 24 2010
STATUS
approved
