%I #6 Feb 05 2014 20:18:04
%S 2,2,4,6,10,14,18,16,17,25,20,28,20,28,28,27,34,38,42,42,33,27,46,56,
%T 33,43,59,112,86,60,70,46,62,76,60,55,50,39,42,66,74,92,58,52,64,54,
%U 42,50,70,73,99,142,128,84,68,59,81,88,85,101,121,53,78,72,45,62,48,78,47,90
%N Maximum entry in n-th row of A097859.
%C Odd numbers not present: 3,5,7,9,11,13,15,19,21,23,29,31,35,37,41,49,57,63,139,149,161,...,.
%t PrimeFactors[n_] := Flatten[ Table[ #[[1]], {#[[2]]}] & /@ FactorInteger[n]]; a[m_, 0] = a[m_, m_] = 2; a[m_, n_] := a[m, n] = Plus @@ Join[ PrimeFactors[ a[m - 1, n - 1]], PrimeFactors[ a[m - 1, n]]]; Table[ Max[ Table[ a[m, n], {n, 0, m}]], {m, 0, 60}]
%Y Cf. A097859.
%K nonn
%O 0,1
%A _Leroy Quet_ and _Robert G. Wilson v_, Sep 03 2004