A063015 - OEIS

%I #16 Sep 08 2022 08:45:03

%S 1,3,6,10,22,30,42,46,58,82,102,106,110,114,138,166,174,178,182,210,

%T 226,230,258,262,282,318,330,346,354,358,374,382,402,410,434,462,466,

%U 478,502,546,562,570,586,602,618,642,654,678,690,710,718,762,822,830

%N Numbers k such that k + mu(k) is prime.

%H Harry J. Smith, <a href="/A063015/b063015.txt">Table of n, a(n) for n = 1..1000</a>

%t Select[ Range[ 1, 830 ], PrimeQ[ #+MoebiusMu[ # ] ]& ]

%o (PARI) { n=0; for (m=1, 10^9, if (isprime(m + moebius(m)), write("b063015.txt", n++, " ", m); if (n==1000, break)) ) } \\ _Harry J. Smith_, Aug 15 2009

%o (Magma) [n: n in [1..900] |IsPrime(n + MoebiusMu(n))]; // _Vincenzo Librandi_, Jun 28 2018

%Y Cf. A063452.

%K nonn,easy

%O 1,2

%A _Dean Hickerson_, Jul 27 2001