%I #9 Sep 16 2015 05:00:16
%S 1,2,3,9,11,13,19,21,23,25,26,37,39,40,41,49,59,73,91,97,100,103,119,
%T 141,147,161,169,191,205,217,275,283,285,330,429,471,485,533,581,597,
%U 605,623,631,635,641,679,697,757,767,799,841,907,971
%N Numbers n such that n + partition number of n is prime.
%C The primes of the form n + A000009(n) are A121558.
%H Robert G. Wilson v, <a href="/A121557/b121557.txt">Table of n, a(n) for n = 1..366 </a>. [From _Robert G. Wilson v_, Jul 27 2009]
%t Select[Range[1000], PrimeQ[ # + PartitionsQ[ # ]] &] (* _Stefan Steinerberger_, Aug 08 2006 *)
%Y Cf. A000009, A000040, A121558.
%K easy,nonn
%O 1,2
%A _Jonathan Vos Post_, Aug 07 2006, Aug 09 2006
%E More terms from _Stefan Steinerberger_, Aug 08 2006