login
Numbers n such that P(4n) is prime, where P(m) is the number of partitions of m.
14

%I #8 Aug 11 2019 05:27:11

%S 1,9,33,42,47,53,54,110,324,534,627,642,683,728,792,1114,2112,2228,

%T 2323,2770,3007,3255,3368,3760,4062,4569,6139,7650,7939,8138,8310,

%U 8493,8674,9122,9407,10345,11127,13343,14713,15442,15632,16358,16904,18165,19303

%N Numbers n such that P(4n) is prime, where P(m) is the number of partitions of m.

%H Max Alekseyev, <a href="/A111045/b111045.txt">Table of n, a(n) for n = 1..1271</a>

%e If n=110 then P(4*n) = 74878248419470886233 (prime).

%t Select[ Range[19923], PrimeQ[ PartitionsP[4# ]] &] (* _Robert G. Wilson v_ *)

%o (PARI) is(n)=isprime(numbpart(4*n)) \\ _Charles R Greathouse IV_, Feb 17 2017

%Y Cf. A000041, A046063, A114165, A111389, A111045, A114166, A111036, A114167, A114168, A114169, A114170.

%K nonn

%O 1,2

%A _Parthasarathy Nambi_, Nov 11 2005

%E a(9)-a(37) from _Robert G. Wilson v_, Nov 14 2005