login
A093572
Greatest prime factor of Product(k+prime(k): 1<=k<=n).
5
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
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
Sequence in context: A155537 A164663 A098971 * A317650 A240731 A266505
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, Apr 01 2004
EXTENSIONS
More terms from Robert G. Wilson v, Apr 07 2004
STATUS
approved