OFFSET
1,1
COMMENTS
Aside from the first term a(1)=4, the sequence appears to be a subset of A129912. - Bill McEachen, Dec 31 2021
MATHEMATICA
nspd[n_]:=Count[Divisors[n], _?(PrimeOmega[#]==2&)]; DeleteDuplicates[Table[{n, nspd[n]}, {n, 194*10^5}], GreaterEqual[#1[[2]], #2[[2]]]&][[;; , 1]] (* The program generates the first 19 terms of the sequence. *) (* Harvey P. Dale, Dec 03 2024 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Hugo Pfoertner, Dec 30 2021
STATUS
approved
