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 A190294 #9 Aug 25 2016 23:07:03 %S A190294 15120,22680,23760,28080,33264,35640,36720,39312,41040,42000,42120, %T A190294 49680,49896,51408,55080,57456,58968,61560,61776,62640,66000,66960, %U A190294 69552,74520,77112,78000,79920,80784,82320,86184,87696,88560,90288,92664 %N A190294 Numbers with prime factorization pqr^3s^4. %H A190294 T. D. Noe, <a href="/A190294/b190294.txt">Table of n, a(n) for n = 1..1000</a> %H A190294 Will Nicholes,<a href="http://willnicholes.com/math/primesiglist.htm">Prime Signatures</a> %t A190294 f[n_]:=Sort[Last/@FactorInteger[n]]=={1,1,3,4};Select[Range[150000],f] %o A190294 (PARI) list(lim)=my(v=List(),t1,t2,t3); forprime(p=2,sqrtnint(lim\120, 4), t1=p^4; forprime(q=2,sqrtnint(lim\(6*t1), 3), if(q==p, next); t2=q^3*t1; forprime(r=2,lim\(2*t2), if(r==p || r==q, next); t3=r*t2; forprime(s=2,lim\t3, if(s==p || s==q || s==r, next); listput(v, t3*s))))); Set(v) \\ _Charles R Greathouse IV_, Aug 25 2016 %Y A190294 Cf. A190292, A190293. %K A190294 nonn %O A190294 1,1 %A A190294 _Vladimir Joseph Stephan Orlovsky_, May 07 2011