A121558 Primes of the form n + partition number of n.

2, 3, 5, 17, 23, 31, 73, 97, 127, 167, 191, 797, 1021, 1153, 1301, 3313, 9851, 40099, 206939, 345953, 444893, 570181, 2032409, 10327297, 15757649, 40982701, 69545527, 281138239, 657667789, 1333640927, 32173820179, 48626519377

Offset: 1

Author

Jonathan Vos Post, Aug 07 2006, Aug 09 2006

Keywords

• nonn

Comments

Numbers n such that n + A000009(n) is prime are in A121557.

Links

• Robert G. Wilson v, Table of n, a(n) for n = 1..366

Crossrefs

Cf. A000009, A000040, A121557.

Programs

Mathematica

okQ[n_]:=PrimeQ[n+PartitionsQ[n]]; genno[x_]:=x+PartitionsQ[x]; genno/@Select[Range[30000],okQ] (* Harvey P. Dale, Jul 25 2009 *)

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

PARI

for(n=1, 1e3, if(isprime(t=n+numbpart(n)), print1(t", "))) \\ Charles R Greathouse IV, Feb 15 2011

Extensions

Terms following 3313 filled in, and all subsequent terms corrected, by Harvey P. Dale, Hagen von Eitzen and Ray Chandler, Jul 25 2009

Edited by N. J. A. Sloane, Aug 17 2009