|
%I #23 Jun 29 2018 03:56:16
%S 3,5,13,31,37,43,61,67,71,73,79,103,131,139,157,191,193,223,239,277,
%T 283,311,313,367,389,397,419,421,431,439,443,457,461,499,509,541,569,
%U 599,607,613,619,643,647,659,661,673,683,733,743,757,769,787,797,823,827
%N Primes of the form k - mu(k).
%H Harry J. Smith, <a href="/A062304/b062304.txt">Table of n, a(n) for n = 1..1000</a>
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/MoebiusFunction.html">Moebius Function</a>
%t lst={}; Do[p=n-MoebiusMu[n]; If[PrimeQ[p], AppendTo[lst, p]], {n, 2, 1200}]; lst (* _T. D. Noe_ *)
%t Select[Table[n-MoebiusMu[n],{n,1000}],PrimeQ] (* _Harvey P. Dale_, Jun 18 2011 *)
%o (PARI) { n=0; for (m=1, 10^9, a=m - moebius(m); if (isprime(a), write("b062304.txt", n++, " ", a); if (n==1000, break)) ) } \\ _Harry J. Smith_, Aug 04 2009
%Y Cf. A063452.
%K nonn
%O 1,1
%A _Jason Earls_, Jul 26 2001
%E Corrected by _T. D. Noe_, Nov 06 2003
|
