This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A074593 #10 Oct 10 2024 08:17:38 %S A074593 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, %T A074593 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, %U A074593 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 %N A074593 Largest prime factors of numbers that are not prime powers. %H A074593 Amiram Eldar, <a href="/A074593/b074593.txt">Table of n, a(n) for n = 1..10000</a> %F A074593 a(n) = A006530(A024619(n)). %t A074593 s[n_] := Module[{f = FactorInteger[n]}, If[Length[f] > 1, f[[-1, 1]], Nothing]]; Array[s, 200] (* _Amiram Eldar_, Oct 10 2024 *) %Y A074593 Cf. A006530, A024619, A074592, A074594, A074595. %K A074593 nonn %O A074593 1,1 %A A074593 _Reinhard Zumkeller_, Aug 25 2002