%I A113499
%S A113499 7,12,40,75,163,228,261,288,322,331,618,678,768,926,2990,3821,4852,5726,
%T A113499 10802,11710,12006,12635,14470,18097,22156,25776,29142
%N A113499 Numbers n such that P(11*n) is prime where P(n) is the partition number.
%e A113499 If n=163 then P(11*n) = 11820527237297139926370474832027317722017807
(prime).
%t A113499 For[n = 1, n < 1000, n++, If[PrimeQ[PartitionsP[11*n]], If[ProvablePrimeQ[PartitionsP[11*n]],
Print[n]]]] (Steinerberger)
%t A113499 Do[ If[ PrimeQ@ PartitionsP[11n], Print@n], {n, 3000}] (* Robert G. Wilson
v *)
%Y A113499 Cf. A111036, A111045, A111389.
%Y A113499 Members of A046063 = 0 (mod 11) divided by 11.
%Y A113499 Sequence in context: A093025 A104584 A078575 this_sequence A108238 A038278
A083335
%Y A113499 Adjacent sequences: A113496 A113497 A113498 this_sequence A113500 A113501
A113502
%K A113499 nonn
%O A113499 1,1
%A A113499 Parthasarathy Nambi (PachaNambi(AT)yahoo.com), Jan 10 2006
%E A113499 More terms from Stefan Steinerberger (stefan.steinerberger(AT)gmail.com)
and Robert G. Wilson v, Jan 12 2006
|