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

%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