%I #8 Aug 11 2019 05:29:32
%S 21,27,55,162,267,321,364,396,557,1056,1114,1385,1684,1880,2031,3825,
%T 4069,4155,4337,4561,7721,7816,8179,8452,9962,15885,16871,17024,17040,
%U 17670,22186,23037,26782,31307,35364,35442,38430,42307
%N Numbers n such that p(8n) is prime, where p(n) is the number of partitions of n.
%H Max Alekseyev, <a href="/A114168/b114168.txt">Table of n, a(n) for n = 1..630</a>
%t Select[ Range[25000], PrimeQ[PartitionsP[8# ]] &]
%o (PARI) is(n)=isprime(numbpart(8*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