%I #16 Jul 26 2013 15:43:01
%S 1,1,2,3,4,5,6,7,7,8,9,10,11,12,13,13,14,15,16,17,18,18,19,20,21,22,
%T 23,23,24,25,26,27,28,28,29,30,31,32,33,33,34,35,36,37,38,38,39,40,41,
%U 42,43,43,44,45,46,47,48,48,49,50,51,52,53,53,54,55,56
%N The maximum value of x^4(n-x)(x-1) for x in 1..n is reached for x = a(n).
%C The maximum value of x(n-x)(x-1) for x in 1..n is reached for x = A004396(n).
%F For n > 10 a(n) = floor((10n + 7)/12).
%t PR[n_, r_] := (n - r)(r - 1) r^4;maxicon[lis_] := If[Length[lis] < 2, Length[lis], If[lis[[1]] >= lis[[2]], 1, 1 + maxicon[Rest[lis]]]]; SEQ[n_] := maxicon[Table[PR[n, i], {i, 1, n}]]; Table[SEQ[n], {n, 1, 122}]
%Y Cf. A004396.
%K nonn
%O 1,3
%A _José María Grau Ribas_, Jul 10 2013