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,1

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

Mathematica

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

Prog

(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

Crossrefs

Cf. A000009, A000040, A121557.

Sequence in context: A049547 A049577 A353153 * A240679 A180474 A155978

Adjacent sequences: A121555 A121556 A121557 * A121559 A121560 A121561

Keyword

nonn

Author

Jonathan Vos Post, Aug 07 2006, Aug 09 2006

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

Status

approved