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 A121558 #17 Mar 04 2018 03:10:38 %S A121558 2,3,5,17,23,31,73,97,127,167,191,797,1021,1153,1301,3313,9851,40099, %T A121558 206939,345953,444893,570181,2032409,10327297,15757649,40982701, %U A121558 69545527,281138239,657667789,1333640927,32173820179,48626519377 %N A121558 Primes of the form n + partition number of n. %C A121558 Numbers n such that n + A000009(n) is prime are in A121557. %H A121558 Robert G. Wilson v, <a href="/A121558/b121558.txt">Table of n, a(n) for n = 1..366 </a> %t A121558 okQ[n_]:=PrimeQ[n+PartitionsQ[n]]; genno[x_]:=x+PartitionsQ[x]; genno/@Select[Range[30000],okQ] (* _Harvey P. Dale_, Jul 25 2009 *) %o A121558 (PARI) P=prod(k=1, 1000, 1+x^k, 1+x*O(x^1000)); for(n=1,1000,t=n+polcoeff(P,n);if(isprime(t),print1(t,","))) \\ _Hagen von Eitzen_, Jul 25 2009 %o A121558 (PARI) for(n=1, 1e3, if(isprime(t=n+numbpart(n)), print1(t", "))) \\ _Charles R Greathouse IV_, Feb 15 2011 %Y A121558 Cf. A000009, A000040, A121557. %K A121558 nonn %O A121558 1,1 %A A121558 _Jonathan Vos Post_, Aug 07 2006, Aug 09 2006 %E A121558 Terms following 3313 filled in, and all subsequent terms corrected, by _Harvey P. Dale_, _Hagen von Eitzen_ and _Ray Chandler_, Jul 25 2009 %E A121558 Edited by _N. J. A. Sloane_, Aug 17 2009