|
Search: id:A114171
|
|
|
| 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. |
|
+0
1
|
|
| 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
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
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: A062540 A115878 A127125 this_sequence A140345 A016024 A093518
Adjacent sequences: A114168 A114169 A114170 this_sequence A114172 A114173 A114174
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Robert G. Wilson v (rgwv(AT)rgwv.com), Nov 14 2005
|
|
|
Search completed in 0.002 seconds
|
