

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
(list;
graph;
refs;
listen;
history;
text;
internal format)



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



