login
Numbers n such that p(7n) is prime, where p(n) is the number of partitions of n.
13

%I #8 Aug 11 2019 05:28:57

%S 11,24,75,78,94,105,155,211,293,416,506,666,1860,3013,3508,3811,4869,

%T 5615,5710,8824,8841,8998,10380,11014,11779,13795,14276,15285,18014,

%U 19456,19855,22435,23343,23391,26328,30608,31380,32074,32810,33459

%N Numbers n such that p(7n) is prime, where p(n) is the number of partitions of n.

%H Max Alekseyev, <a href="/A114167/b114167.txt">Table of n, a(n) for n = 1..810</a>

%t Select[ Range[28571], PrimeQ[PartitionsP[7# ]] &]

%o (PARI) is(n)=isprime(numbpart(7*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,1

%A _Robert G. Wilson v_, Nov 14 2005