A176173 4th|largest prime-factor of n-th product of 4 distinct primes.
7, 11, 13, 11, 17, 13, 19, 23, 17, 11, 19, 13, 29, 13, 31, 23, 37, 17, 11, 17, 29, 41, 19, 43, 31, 17, 19, 13, 47, 13, 19, 23, 37, 53, 23, 41, 59, 17, 23, 43, 61, 17, 29, 19, 47, 19, 13, 67, 29, 31, 19, 71, 13, 31, 73, 17, 53, 29, 23, 79, 23, 31, 37, 19, 59, 83, 23, 61, 37, 17
Offset: 1
Keywords
Crossrefs
Programs
-
Mathematica
f0[n_]:=Last/@FactorInteger[n]=={1,1,1,1};f1[n_]:=Min[First/@FactorInteger[n]];f2[n_]:=First/@FactorInteger[n][[2,1]];f3[n_]:=First/@FactorInteger[n][[3,1]];f4[n_]:=Max[First/@FactorInteger[n]];lst={};Do[If[f0[n],AppendTo[lst,f4[n]]],{n,0,2*7!}];lst
Comments