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 A130092 #10 Feb 16 2025 08:33:06 %S A130092 6,10,14,15,21,22,26,30,33,34,35,36,38,39,42,46,51,55,57,58,60,62,65, %T A130092 66,69,70,74,77,78,82,84,85,86,87,90,91,93,94,95,100,102,105,106,110, %U A130092 111,114,115,118,119,120,122,123,126,129,130,132,133,134,138,140,141,142 %N A130092 Numbers with at least two factors having in their canonical prime factorization equal exponents. %C A130092 Complement of A130091; A120944 and A085986 are subsequences; %C A130092 a(n)>A130091(n) for n<=150, a(n) < A130091(n) for n>150. %H A130092 R. Zumkeller, <a href="/A130092/b130092.txt">Table of n, a(n) for n = 1..10000</a> %H A130092 Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/PrimeFactorization.html">Prime Factorization</a> %t A130092 t[n_] := FactorInteger[n][[All, 2]];s = Select[Range[400], Union[t[#]] == Sort[t[#]] &] (* A130091 *) %t A130092 Complement[Range[Max[s]], s] (* A130092 *) %t A130092 (* _Clark Kimberling_, Mar 12 2015 *) %K A130092 nonn %O A130092 1,1 %A A130092 _Reinhard Zumkeller_, May 06 2007