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