[go: up one dir, main page]

login
A074593
Largest prime factors of numbers that are not prime powers.
4
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
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
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, Aug 25 2002
STATUS
approved