|
%I #9 May 27 2016 12:22:07
%S 3,5,5,11,11,19,19,19,19,19,19,19,19,19,31,31,31,79,79,79,79,101,101,
%T 113,113,127,127,127,127,127,127,163,163,173,173,173,173,173,173,173,
%U 173,223,223,223,223,223,223,271,271,271,271,271,271,271,271,271,271
%N Greatest prime factor of Product(k+prime(k): 1<=k<=n).
%C a(n) = A006530(A093570(n)) = A006530(A093571(n));
%C a(n) = Max(A076556(k): 1<=k<=n).
%H Harvey P. Dale, <a href="/A093572/b093572.txt">Table of n, a(n) for n = 1..1000</a>
%t 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 *)
%t FactorInteger[#][[-1,1]]&/@FoldList[Times,Table[n+Prime[n],{n,60}]] (* _Harvey P. Dale_, May 27 2016 *)
%Y Cf. A014688, A092602.
%K nonn
%O 1,1
%A _Reinhard Zumkeller_, Apr 01 2004
%E More terms from _Robert G. Wilson v_, Apr 07 2004
|
