OFFSET
1,1
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
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, Apr 01 2004
EXTENSIONS
More terms from Robert G. Wilson v, Apr 07 2004
STATUS
approved