A074593 Largest prime factors of numbers that are not prime powers.

3, 5, 3, 7, 5, 3, 5, 7, 11, 3, 13, 7, 5, 11, 17, 7, 3, 19, 13, 5, 7, 11, 5, 23, 3, 5, 17, 13, 3, 11, 7, 19, 29, 5, 31, 7, 13, 11, 17, 23, 7, 3, 37, 5, 19, 11, 13, 5, 41, 7, 17, 43, 29, 11, 5, 13, 23, 31, 47, 19, 3, 7, 11, 5, 17, 13, 7, 53, 3, 11, 37, 7, 19, 23, 29, 13, 59, 17, 5, 61

Offset

1,1

Links

Amiram Eldar, Table of n, a(n) for n = 1..10000

Formula

a(n) = A006530(A024619(n)).

Mathematica

s[n_] := Module[{f = FactorInteger[n]}, If[Length[f] > 1, f[[-1, 1]], Nothing]]; Array[s, 200] (* Amiram Eldar, Oct 10 2024 *)

Crossrefs

Cf. A006530, A024619, A074592, A074594, A074595.

Sequence in context: A079602 A075572 A089992 * A144294 A255313 A305883

Adjacent sequences: A074590 A074591 A074592 * A074594 A074595 A074596

Keyword

nonn

Author

Reinhard Zumkeller, Aug 25 2002

Status

approved