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,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

Cf. A063015, A062304.

Sequence in context: A123991 A112511 A143702 * A009299 A330766 A072611

Adjacent sequences: A063449 A063450 A063451 * A063453 A063454 A063455

Keyword

nonn

Author

Jason Earls, Jul 25 2001

Status

approved