A114171 Least number m, a multiple of n, such that P(m*n) is prime, where P(k) is the number of partitions of k.

2, 1, 1, 1, 1, 1, 11, 21, 4, 44, 7, 3, 1, 12, 35, 81, 1429, 2, 132, 22, 8, 6, 154, 7, 21, 21, 8, 6, 29, 434, 6, 91, 4, 900, 15, 1, 126, 66, 14, 11, 122, 4, 477, 3, 481, 77, 4, 27, 15, 612, 600, 56, 4, 4, 8, 3, 44, 71, 310, 217, 6, 3, 74, 132, 333, 2, 1146, 450, 1655, 186, 58, 3

Offset

1,1

Links

Table of n, a(n) for n=1..72.

Mathematica

Do[ PartitionsP[n], {n, 200000}]; f[n_] := Block[{k = 1}, While[ !PrimeQ[ PartitionsP[k*n]], k++ ]; k]; Array[f, 72]

Crossrefs

Cf. A000041, A046063, A114165, A111389, A111045, A114166, A111036, A114167, A114168, A114169, A114170, A114171.

Sequence in context: A376799 A256671 A327156 * A154243 A326698 A299432

Adjacent sequences: A114168 A114169 A114170 * A114172 A114173 A114174

Keyword

nonn

Author

Robert G. Wilson v, Nov 14 2005

Status

approved