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 A190474 #9 Aug 25 2016 23:12:10 %S A190474 20160,31680,33600,37440,44352,47040,48960,52416,52800,54720,62400, %T A190474 66240,68544,76608,81600,82368,83520,89280,91200,92736,102060,103488, %U A190474 106560,107712,110400,116160,116928,118080,120384,122304,123200,123840 %N A190474 Numbers with prime factorization pqr^2s^6. %H A190474 T. D. Noe, <a href="/A190474/b190474.txt">Table of n, a(n) for n = 1..1000</a> %H A190474 Will Nicholes, <a href="http://willnicholes.com/math/primesiglist.htm">Prime Signatures</a> %t A190474 f[n_]:=Sort[Last/@FactorInteger[n]]=={1,1,2,6}; Select[Range[300000],f] %o A190474 (PARI) list(lim)=my(v=List(),t1,t2,t3); forprime(p=2,sqrtnint(lim\60, 6), t1=p^6; forprime(q=2,sqrtint(lim\(6*t1)), if(q==p, next); t2=q^2*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 A190474 Cf. A190472, A190473. %K A190474 nonn %O A190474 1,1 %A A190474 _Vladimir Joseph Stephan Orlovsky_, May 10 2011