login
A063452
Numbers k such that k - mu(k) is prime.
3
2, 6, 14, 30, 38, 42, 62, 66, 70, 74, 78, 102, 130, 138, 158, 190, 194, 222, 238, 278, 282, 310, 314, 366, 390, 398, 418, 422, 430, 438, 442, 458, 462, 498, 510, 542, 570, 598, 606, 614, 618, 642, 646, 658, 662, 674, 682, 734, 742, 758, 770, 786, 798, 822
OFFSET
1,1
LINKS
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
Sequence in context: A123991 A112511 A143702 * A009299 A330766 A072611
KEYWORD
nonn
AUTHOR
Jason Earls, Jul 25 2001
STATUS
approved