A093572 Greatest prime factor of Product(k+prime(k): 1<=k<=n).

3, 5, 5, 11, 11, 19, 19, 19, 19, 19, 19, 19, 19, 19, 31, 31, 31, 79, 79, 79, 79, 101, 101, 113, 113, 127, 127, 127, 127, 127, 127, 163, 163, 173, 173, 173, 173, 173, 173, 173, 173, 223, 223, 223, 223, 223, 223, 271, 271, 271, 271, 271, 271, 271, 271, 271, 271

Offset

1,1

Comments

a(n) = A006530(A093570(n)) = A006530(A093571(n));

a(n) = Max(A076556(k): 1<=k<=n).

Links

Harvey P. Dale, Table of n, a(n) for n = 1..1000

Mathematica

PrimeFactors[n_Integer] := Flatten[ Table[ # [[1]], {1}] & /@ FactorInteger[n]]; Table[ PrimeFactors[ Product[k + Prime[k], {k, n}]][[ -1]], {n, 60}] (* Robert G. Wilson v, Apr 07 2004 *)
FactorInteger[#][[-1, 1]]&/@FoldList[Times, Table[n+Prime[n], {n, 60}]] (* Harvey P. Dale, May 27 2016 *)

Crossrefs

Cf. A014688, A092602.

Sequence in context: A155537 A164663 A098971 * A317650 A240731 A266505

Adjacent sequences: A093569 A093570 A093571 * A093573 A093574 A093575

Keyword

nonn

Author

Reinhard Zumkeller, Apr 01 2004

Extensions

More terms from Robert G. Wilson v, Apr 07 2004

Status

approved