|
%I #17 Mar 04 2018 03:10:38
%S 2,3,5,17,23,31,73,97,127,167,191,797,1021,1153,1301,3313,9851,40099,
%T 206939,345953,444893,570181,2032409,10327297,15757649,40982701,
%U 69545527,281138239,657667789,1333640927,32173820179,48626519377
%N Primes of the form n + partition number of n.
%C Numbers n such that n + A000009(n) is prime are in A121557.
%H Robert G. Wilson v, <a href="/A121558/b121558.txt">Table of n, a(n) for n = 1..366 </a>
%t okQ[n_]:=PrimeQ[n+PartitionsQ[n]]; genno[x_]:=x+PartitionsQ[x]; genno/@Select[Range[30000],okQ] (* _Harvey P. Dale_, Jul 25 2009 *)
%o (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
%o (PARI) for(n=1, 1e3, if(isprime(t=n+numbpart(n)), print1(t", "))) \\ _Charles R Greathouse IV_, Feb 15 2011
%Y Cf. A000009, A000040, A121557.
%K nonn
%O 1,1
%A _Jonathan Vos Post_, Aug 07 2006, Aug 09 2006
%E Terms following 3313 filled in, and all subsequent terms corrected, by _Harvey P. Dale_, _Hagen von Eitzen_ and _Ray Chandler_, Jul 25 2009
%E Edited by _N. J. A. Sloane_, Aug 17 2009
|
