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
Keywords
Links
- Harry J. Smith, Table of n, a(n) for n = 1..1000
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))}
Comments