OFFSET
1,1
LINKS
Harry J. Smith, Table of n, a(n) for n = 1..1000
MATHEMATICA
Select[Range[1, 1000], PrimeQ[# - MoebiusMu[#]] &] (* Vincenzo Librandi, Jun 26 2018 *)
PROG
(PARI) ok(m)={isprime(m - moebius(m))}
(Magma) [n: n in [1..1000] |IsPrime(n - MoebiusMu(n))]; // Vincenzo Librandi, Jun 26 2018
CROSSREFS
KEYWORD
nonn
AUTHOR
Jason Earls, Jul 25 2001
STATUS
approved