This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A062304 #24 Feb 16 2025 08:32:44 %S A062304 3,5,13,31,37,43,61,67,71,73,79,103,131,139,157,191,193,223,239,277, %T A062304 283,311,313,367,389,397,419,421,431,439,443,457,461,499,509,541,569, %U A062304 599,607,613,619,643,647,659,661,673,683,733,743,757,769,787,797,823,827 %N A062304 Primes of the form k - mu(k). %H A062304 Harry J. Smith, <a href="/A062304/b062304.txt">Table of n, a(n) for n = 1..1000</a> %H A062304 Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/MoebiusFunction.html">Moebius Function</a> %t A062304 lst={}; Do[p=n-MoebiusMu[n]; If[PrimeQ[p], AppendTo[lst, p]], {n, 2, 1200}]; lst (* _T. D. Noe_ *) %t A062304 Select[Table[n-MoebiusMu[n],{n,1000}],PrimeQ] (* _Harvey P. Dale_, Jun 18 2011 *) %o A062304 (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 A062304 Cf. A063452. %K A062304 nonn %O A062304 1,1 %A A062304 _Jason Earls_, Jul 26 2001 %E A062304 Corrected by _T. D. Noe_, Nov 06 2003