|
Search: id:A038667
|
|
|
| A038667 |
|
Minimal value of |product(A)-product(B)| where A and B are a partition of {1,2,3,...n}. |
|
+0
2
|
|
| 1, 1, 2, 2, 6, 2, 18, 54, 30, 36, 576, 576, 840, 6120, 24480, 20160, 93696, 420480, 800640, 1305696, 7983360, 80313120, 65318400, 326592000, 2286926400, 3002360256, 13680979200, 37744574400, 797369149440, 1763653953600
(list; graph; listen)
|
|
|
OFFSET
|
2,3
|
|
|
MAPLE
|
a:= proc(n) local l, ll, g, gg, p, i; l:= [i$i=1..n]; ll:= [i!$i=1..n]; g:= proc(m, j, b) local mm, bb, k; if j=1 then m else mm:= m; bb:= b; for k to 2 while (mm<p) do if j=2 or k=2 or k=1 and ll[j-1]*mm>bb then bb:= max (bb, g (mm, j-1, bb)) fi; mm:= mm*l[j] od; bb fi end; Digits:= 700; p:= ceil (sqrt (ll[n])); gg:= g (1, nops(l), 1); ll[n]/gg -gg end: seq (a(n), n=2..20); [From Alois P. Heinz (heinz(AT)hs-heilbronn.de), Jul 09 2009]
|
|
CROSSREFS
|
Cf. A071057. [From Robert G. Wilson v (rgwv(AT)rgwv.com), Jul 12 2009]
Sequence in context: A036655 A098792 A061057 this_sequence A013608 A130674 A100346
Adjacent sequences: A038664 A038665 A038666 this_sequence A038668 A038669 A038670
|
|
KEYWORD
|
hard,nonn
|
|
AUTHOR
|
Erich Friedman (erich.friedman(AT)stetson.edu)
|
|
EXTENSIONS
|
a(28) - a(31) from Alois P. Heinz (heinz(AT)hs-heilbronn.de), Jul 09 2009
|
|
|
Search completed in 0.002 seconds
|
