%I #12 Aug 11 2019 05:31:16
%S 7,12,40,75,163,228,261,288,322,331,618,678,768,926,2990,3821,4852,
%T 5726,10802,11710,12006,12635,14470,18097,22156,25776,29142,32692,
%U 36965,48830,51821,56433,58008,63757,64433,67545,68391,69850,73723,77498,77770
%N Numbers n such that P(11*n) is prime where P(n) is the partition number.
%C n belongs to this sequence if and only if 11*n belongs to A046063.
%H Max Alekseyev, <a href="/A113499/b113499.txt">Table of n, a(n) for n = 1..467</a>
%e If n=163 then P(11*n) = 11820527237297139926370474832027317722017807 (prime).
%t For[n = 1, n < 1000, n++, If[PrimeQ[PartitionsP[11*n]], If[ProvablePrimeQ[PartitionsP[11*n]], Print[n]]]] (* _Stefan Steinerberger_ *)
%t Do[ If[ PrimeQ@ PartitionsP[11n], Print@n], {n, 3000}] (* _Robert G. Wilson v_ *)
%Y Cf. A111036, A111045, A111389.
%K nonn
%O 1,1
%A _Parthasarathy Nambi_, Jan 10 2006
%E More terms from _Stefan Steinerberger_ and _Robert G. Wilson v_, Jan 12 2006
%E Terms a(28) onward from _Max Alekseyev_, Dec 18 2011