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 A071929 #17 Dec 09 2019 09:19:32 %S A071929 1,4,12,18,27,80,120,180,200,270,300,405,448,450,500,672,675,750,1008, %T A071929 1120,1125,1250,1512,1568,1680,1875,2268,2352,2520,2800,3125,3402, %U A071929 3528,3780,3920,4200,5103,5292,5488,5670,5880,6300,7000,7938,8232,8505,8820 %N A071929 Numbers k such that the sum of exponents of k is equal to the greatest prime factor of k; a(1)=1. %H A071929 Amiram Eldar, <a href="/A071929/b071929.txt">Table of n, a(n) for n = 1..10000</a> %e A071929 28160 is a term since 28160 = 2^9*5^1*11^1 and 9+1+1 = 11 and Gpf(28160) = 11. %t A071929 Select[Range[10^4], (f = FactorInteger[#])[[-1, 1]] == Plus @@ f[[;;,2]] &] (* _Amiram Eldar_, Dec 08 2019 *) %Y A071929 Cf. A006530, A086436. %K A071929 nonn %O A071929 1,2 %A A071929 _Jason Earls_, Jun 14 2002