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
Keywords
Links
- Harvey P. Dale, Table of n, a(n) for n = 1..1000
Programs
-
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 *)
Extensions
More terms from Robert G. Wilson v, Apr 07 2004
Comments