%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