|
%I #8 Jan 17 2015 17:46:01
%S 5,7,11,7,13,17,7,11,19,13,23,11,11,17,29,13,31,19,13,37,23,11,17,41,
%T 17,43,19,13,47,19,13,29,31,53,23,23,59,17,61,37,17,11,19,67,29,41,19,
%U 71,13,43,31,29,73,17,13,31,47,79,23,19,83,23,37,53,89,37,17,41,97,59
%N Greatest prime factor of n-th product of 3 distinct primes.
%C A096917(n)*A096918(n)*a(n) = A007304(n); A096917(n) < A096918(n) < a(n);
%C a(n) = A006530(A007304(n)).
%t f[n_]:=Last/@FactorInteger[n]=={1,1,1};f1[n_]:=Min[First/@FactorInteger[n]];f2[n_]:=Max[First/@FactorInteger[n]];lst={};Do[If[f[n],AppendTo[lst,f2[n]]],{n,0,7!}];lst (* _Vladimir Joseph Stephan Orlovsky_, Apr 10 2010 *)
%K nonn
%O 1,1
%A _Reinhard Zumkeller_, Jul 15 2004
|
