A098330 Maximum entry in n-th row of A097859.

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, 43, 59, 112, 86, 60, 70, 46, 62, 76, 60, 55, 50, 39, 42, 66, 74, 92, 58, 52, 64, 54, 42, 50, 70, 73, 99, 142, 128, 84, 68, 59, 81, 88, 85, 101, 121, 53, 78, 72, 45, 62, 48, 78, 47, 90

Offset

0,1

Comments

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,...,.

Links

Table of n, a(n) for n=0..69.

Mathematica

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}]

Crossrefs

Cf. A097859.

Sequence in context: A323587 A236634 A034406 * A240310 A083848 A330644

Adjacent sequences: A098327 A098328 A098329 * A098331 A098332 A098333

Keyword

nonn

Author

Leroy Quet and Robert G. Wilson v, Sep 03 2004

Status

approved