A063452 Numbers k such that k - mu(k) is prime.

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

Author

Jason Earls, Jul 25 2001

Keywords

• nonn

Links

• Harry J. Smith, Table of n, a(n) for n = 1..1000

Crossrefs

Cf. A063015, A062304.

Programs

Magma

[n: n in [1..1000] |IsPrime(n - MoebiusMu(n))]; // Vincenzo Librandi, Jun 26 2018

Mathematica

Select[Range[1, 1000], PrimeQ[# - MoebiusMu[#]] &] (* Vincenzo Librandi, Jun 26 2018 *)

PARI

ok(m)={isprime(m - moebius(m))}