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,1

Comments

FactorInteger[210]=2*3*5*7,...

Links

Table of n, a(n) for n=1..70.

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

Crossrefs

Cf. A006881, A007304, A070647, A096916, A096917, A096918, A096919, A176170, A176171, A176172

Sequence in context: A213250 A226689 A117610 * A200327 A206546 A275516

Adjacent sequences: A176170 A176171 A176172 * A176174 A176175 A176176

Keyword

nonn

Author

Vladimir Joseph Stephan Orlovsky, Apr 10 2010

Status

approved