|
| |
|
|
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 . [From Robert G. Wilson v, Jul 27 2009]
|
|
|
MATHEMATICA
|
okQ[n_]:=PrimeQ[n+PartitionsQ[n]]; genno[x_]:=x+PartitionsQ[x]; genno/@Select[Range[30000], okQ] [From 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, ", "))) [From 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
|
Filled in terms following 3313, and corrected all subsequent terms. - Harvey P. Dale, Hagen von Eitzen and Ray Chandler, Jul 25 2009
Edited by N. J. A. Sloane, Aug 17 2009
|
|
|
STATUS
|
approved
|
| |
|
|
