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 A095990 #14 Jul 24 2015 23:16:02 %S A095990 18,50,75,98,147,242,245,338,363,507,578,605,722,845,847,867,1058, %T A095990 1083,1183,1445,1587,1682,1805,1859,1922,2023,2523,2527,2645,2738, %U A095990 2883,3179,3362,3698,3703,3757,3971,4107,4205,4418,4693,4805,5043,5547,5618,5819 %N A095990 Numbers with ordered prime signature (1,2). %C A095990 Numbers of the form p*q^2 where p and q are primes with p < q. %C A095990 A054753 contains natural numbers with ordered prime signatures (2,1) and (1,2). %H A095990 Enrique Pérez Herrero, <a href="/A095990/b095990.txt">Table of n, a(n) for n = 1..3000</a> %H A095990 OEIS Wiki, <a href="http://oeis.org/wiki/Ordered_prime_signatures">Ordered prime signatures</a> %e A095990 18 = 2*3*3, 50 = 2*5*5, 75 = 3*5*5, 98 = 2*7*7, 147 = 3*7*7, ... %t A095990 Take[ Sort[ Flatten[ Table[ Prime[p]*Prime[q]^2, {q, 2, 16}, {p, q - 1}]]], 46] (* _Robert G. Wilson v_, Jul 23 2004 *) %o A095990 (PARI) list(lim)=my(v=List());forprime(q=3, sqrtint(lim\2), forprime(p=2, min(lim\q^2,q-1), listput(v,p*q^2))); Set(v) \\ _Charles R Greathouse IV_, Feb 26 2014 %Y A095990 Subsequence of A071365. %Y A095990 Cf. A054753, A095904, A096156. %K A095990 easy,nonn %O A095990 1,1 %A A095990 _Alford Arnold_, Jul 18 2004 %E A095990 Edited and extended by _Robert G. Wilson v_, Jul 23 2004