|
%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
|
