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

%I #10 Aug 11 2019 05:28:25

%S 1,6,22,28,31,36,61,83,91,181,216,263,356,417,418,428,528,557,777,

%T 1133,1243,1408,2170,2708,3046,3867,5100,5540,5662,7418,9397,12110,

%U 12797,14787,16161,16482,18022,19431,19667,21180,22011,22720,23560,27903

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

%H Max Alekseyev, <a href="/A111036/b111036.txt">Table of n, a(n) for n = 1..782</a>

%e If n=91 then p(6n) = 27833079238879849385687 (prime).

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

%o (PARI) is(n)=isprime(numbpart(6*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(10)-a(45) from _Robert G. Wilson v_, Nov 14 2005