%I A098330
%S A098330 2,2,4,6,10,14,18,16,17,25,20,28,20,28,28,27,34,38,42,42,33,27,46,56,33,
%T A098330 43,59,112,86,60,70,46,62,76,60,55,50,39,42,66,74,92,58,52,64,54,42,50,
%U A098330 70,73,99,142,128,84,68,59,81,88,85,101,121,53,78,72,45,62,48,78,47,90
%N A098330 Maximum entry in n-th row of A097859.
%C A098330 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,...,.
%H A098330 Leroy Quet, <a href="http://www.prism-of-spirals.net/">Home Page</a> 
               (listed in lieu of email address)
%t A098330 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 A098330 Cf. A097859.
%Y A098330 Sequence in context: A076178 A060988 A034406 this_sequence A083848 A139582 
               A034410
%Y A098330 Adjacent sequences: A098327 A098328 A098329 this_sequence A098331 A098332 
               A098333
%K A098330 nonn
%O A098330 0,1
%A A098330 Leroy Quet and Robert G. Wilson v (rgwv(AT)rgwv.com), Sep 03 2004