A113499 Numbers n such that P(11*n) is prime where P(n) is the partition number.
7, 12, 40, 75, 163, 228, 261, 288, 322, 331, 618, 678, 768, 926, 2990, 3821, 4852, 5726, 10802, 11710, 12006, 12635, 14470, 18097, 22156, 25776, 29142, 32692, 36965, 48830, 51821, 56433, 58008, 63757, 64433, 67545, 68391, 69850, 73723, 77498, 77770
Offset: 1
Keywords
Examples
If n=163 then P(11*n) = 11820527237297139926370474832027317722017807 (prime).
Links
- Max Alekseyev, Table of n, a(n) for n = 1..467
Programs
-
Mathematica
For[n = 1, n < 1000, n++, If[PrimeQ[PartitionsP[11*n]], If[ProvablePrimeQ[PartitionsP[11*n]], Print[n]]]] (* Stefan Steinerberger *) Do[ If[ PrimeQ@ PartitionsP[11n], Print@n], {n, 3000}] (* Robert G. Wilson v *)
Extensions
More terms from Stefan Steinerberger and Robert G. Wilson v, Jan 12 2006
Terms a(28) onward from Max Alekseyev, Dec 18 2011
Comments