1,4

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

f[n_] := Block[{k = 1, mk = mx = 0}, While[k < n + 1, a = Length@ IntegerPartitions[n, {k}]; If[a > mx, mx = a; mk = k]; k++ ]; mk]; Array[f, 85] (* Robert G. Wilson v, Jul 20 2010 *)

Max{T(n, k)} for 1<=k<=n is A002569.

Sequence in context: A301461 A172471 A046155 * A302342 A137214 A284726

Adjacent sequences: A026816 A026817 A026818 * A026820 A026821 A026822

nonn

Clark Kimberling

More terms from Robert G. Wilson v, Jul 20 2010

approved