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