OFFSET
1,1
MATHEMATICA
With[{m = 200}, Prime[Complement[Range[m], Array[# + PrimeNu[#] &, m]]]] (* Amiram Eldar, Sep 05 2023, after Jon Maiga at A119993 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Tamas Sandor Nagy, Aug 27 2023
STATUS
approved