OFFSET
1,1
COMMENTS
LINKS
Michael De Vlieger, Table of n, a(n) for n = 1..15402 (All terms k <= A002110(16))
MATHEMATICA
(* Load May 19 2018 function f at A025487, then run the following: *)
Select[Union@ Flatten@ f[k], And[PrimeOmega[#] > PrimeNu[#] > 1, AllTrue[FactorInteger[#][[All, -1]], # > 1 &] ] &]
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Michael De Vlieger, Dec 12 2023
STATUS
approved