

A121558


Primes of the form n + partition number of n.


3



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
(list;
graph;
refs;
listen;
history;
text;
internal format)



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: A111632 A049547 A049577 * 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



