login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A070736 Let r, s, t, u be four permutations of the set { 1, 2, 3, ..., n }; a(n) = minimal value of Sum_{i=1..n} r(i)*s(i)*t(i)*u(i). 7
1, 8, 33, 96, 231, 484, 915, 1608, 2664, 4208, 6392, 9392, 13418, 18706, 25540, 34224, 45108, 58588, 75101, 95120, 119179, 147856, 181786, 221648, 268195, 322220, 384588, 456232, 538138, 631362, 737052, 856396, 990684, 1141254, 1309568, 1497104, 1705508, 1936416, 2191700, 2473248, 2783030 (list; graph; refs; listen; history; text; internal format)
OFFSET
1,2
LINKS
EXAMPLE
Examples from David A. Corneth, Apr 09 2019:
a(1) = 1 via [1] [1] [1] [1];
a(2) = 8 via [1, 2] [1, 2] [2, 1] [2, 1];
a(3) = 33 via [1, 2, 3] [1, 3, 2] [3, 1, 2] [3, 2, 1];
a(4) = 96 via [1, 2, 3, 4] [2, 1, 4, 3] [3, 4, 1, 2] [4, 3, 2, 1];
a(5) = 231 via [1, 2, 3, 4, 5] [2, 3, 1, 4, 5] [4, 2, 5, 3, 1] [5, 4, 3, 1, 2];
a(6) = 484 via [1, 2, 3, 4, 5, 6] [2, 3, 5, 1, 4, 6] [6, 3, 2, 5, 4, 1] [6, 5, 3, 4, 1, 2].
MATHEMATICA
Table[Min[Map[Total, Map[#[[1]]*#[[2]]*#[[3]]*#[[4]] &, Subsets[If[n > 3, Permutations[Range[n]], Flatten[Table[Permutations[Range[n]], 4], 1]], {4}]]]] , {n, 1, 5}] (* Robert Price, Apr 09 2019 *)
PROG
(Python) # See Martin Fuller link in A070735, Aug 06 2023
CROSSREFS
Cf. A000292 (for two permutations), A070735 (for three).
Sequence in context: A114105 A316148 A014820 * A051836 A278670 A301771
KEYWORD
nice,nonn,hard
AUTHOR
Michael Reid (mreid(AT)math.umass.edu), May 15 2002
EXTENSIONS
a(11) onwards from Martin Fuller, Aug 06 2023
STATUS
approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified March 28 22:04 EDT 2024. Contains 371254 sequences. (Running on oeis4.)