|
%I #8 Jan 17 2020 17:41:57
%S 0,2,4,6,8,11,13,17,19,23,29,31,37,41,43,47,53,59,61,67,71,73,79,83,
%T 89,97,101,103,107,109,113,127,131,137,139,149,151,157,163,167,173,
%U 179,181,191,193,197,199,211,223,227,229,233,239,241,251,257,263,269
%N Maximum sum of primes of the parts of an integer partition of n.
%C For n > 4, a(n) = prime(n).
%F a(n) = A331418(n) + n - 1.
%t Table[Max@@Table[Total[Prime/@y],{y,IntegerPartitions[n]}],{n,0,10}]
%Y Converges to A000040.
%Y Row lengths of A331416.
%Y The corresponding minimum is A007494.
%Y Partitions whose sum of primes is divisible by their sum are A331379.
%Y Cf. A000607, A001414, A014689, A056239, A179437, A330950, A330953, A330954, A331381, A331383, A331385, A331387, A331415, A331418.
%K nonn
%O 0,2
%A _Gus Wiseman_, Jan 17 2020
|
